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le 1 er hebdomadaire des programmes informatiaues 




IMAGES 



Ces photos soni des pholas 
d'ecran. Impressionnant, non ? 
Ces graphismes aussi realisles 
sont maintenant realisables gra- 
ce a la carte PLUTO, conpue par la 
societe Arvglaise I/O RESEARCH 
et distribute par JCS. 
La carte PLUTO, qui permet des 
manipulations graphiques so- 
phistiquees est connectable aux 
mjcro-ordinateurs APPLE II. APRI- 
COT. BBC et tout systeme dispo- 
sant du bus S 100 





La carte PLUIO adaptee en VIC- 
TOR est directement enfichable 
dans Tun des ccnnecleurs de bus 
et propose une resolution de 768 
X 576 points en 16 couleurs {rien 
que ca !}. Une plaque amere est 
prevue pour la liaison a un moni- 
I eur co uleur haute resolution. Elle 
contient un micro-processeur 



(8083a8MHZ). unlogicielintegre 
(en ROM), un controleur video et 
192 K de memoire d'ecran, le tout 
cornmande par un jeu de 60 ins- 
tructions. 

Un coffret standard PLUTO concu 
pour recevoir la carte de base 
(640 X 576 points en 8 couleurs) 
el d'aulres cartes d'exlensions. 
peut etre raccorde aux ordina- 
teurs cites. 

Ces cartes d'extensions donnent 
acces a de puissanles (onctions : 
Choix de 256 couleurs simulta- 
nees parmi 16,7 millions. Oui, 
vous avez bien lu ! (carte PALET- 
TE), digitalisation d'image resti- 
tuant 256 nuances de gris. 
Le prix est, bien entendu.a la me- 
sure des capacitesdecette carte. 
Elle s'adresse aux concept eurs et 
utilisateurs interesses par les re- 
cherches graphiques et artisti- 
ques, la CAO. les animations et 
manipulations d'images. ■ 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAOUE MOIS. 
1 voyage en Californie pour le meilleur logicie! CHAQUE TRI- 
MESTRE (Reglement en page interieure) 



CONCOURS HEBDOGICIEL 

GEORGES LECLERE D'ANTENNE 2 



Depuis la semame demiere et 
jusqu'au 2 Mai. un concours. in- 
dependent des deux concours 
permanents est organise avec 
Georges LECLERE d'Antenne 2. 
L'objeclif de ce concours est sim- 
ple : a pariir de I'idee de base de 
Georges LECLERE, chacun d'en- 
tre vous. quel q ue soit son Ordina- 
te ur . doit creer un jeu le plus pro 
che possible de I'idee originale et 
le rendre suffisamment perfor- 
mant et presentable, pour qu'il 
puisse etre vendu en France et 
dans les pays Francophones. 

Chaque ordinateur a sa chance 
et if y aura un gagnant par ordina- 
teur. Les prix ? Comme d'habitu- 
de chacun des programmes rete- 
nus sera recompense par des 
materiels. il y aura meme un su- 
per gagnant. Mais surtout, les 
programmes retenus seront edite 
par SHIFT EDITIONS sous lorme 
de K7 ou de disquette et les au- 
teurs, par contrat. toucheront les 
royalties correspondant aux 
ventes de leur logiciel. 



LE JURY 

Preside par Georges LECLERE. 
des specialties de DOM, de la 
FNAC, d'HACHETTE, d'lLLEL de 
la REGLE A CALCUL, de SIDEG. 
de SIVEA et de VIFl NATHAN se 
reuniron! pour admirer vos ceu- 
vres Annonce des resultats le 25 
mai. a vos claviers ! 




LES PRIX 



Le jury choisira le meilleur logi- 
ciel pour chaque modele d'ordi- 
nateur et. parmi ces meilleurs lo- 
giciels, le gagnant toute catego- 
rie qui en plus de son contrat 
d'edition et de ses prix, aura le 
plaisir de passer en direct a la te- 
levision la gloire ' 

RECOMPENSES POUR LE GA- 
GNANT TOUTE CATEGORIE : 

- Un contrat d'edition de son lo- 
gicie! 

- Un APPLE Me 

- Un CANON X-07 

- Un COMMODORE 64 

- Un ORIC ATMOS 

- Un Agenda electronique CASIO 
PF 3000 

- Un TEXAS Tl 99/4A 

- Une imprimante EPSON 

- Un abonnement a vie a HEB- 
DOGICIEL 

- Une disquette HEBDOGICIEL 
APPLE N" 1 

- 5 logiciels VIFl NATHAN 

- 5 logiciels ROMOX 



- 5 modules de jeux TEXAS 

- 10 logiciels de jeux pour COM- 
MODORE 64 

RECOMPENSE POUR LES GA- 
GNANTS DANS CHAQUE CATE- 
GORIE D'ORDINATEUR 

- Un contrat d EJttion de son lo- 
giciel 

- Un agenda electronique CASIO 
PF 3000 

- 20 K7 vierges 

- Un abonnement d'un an a HEB- 
DOGICIEL 

et bien d'autres prix qui viendront 
s'ajouter au cours des semames 
a venir Cloture des envois de 
programmes le 2 mai 
Le reglement est en page inte- 
rieure Plus que quatre semames 
avant la gloire ! 



EDITO 



ATARISTES attention, vos pro- 
grammes se bousculent au portil- 
ton, il nous (audra bientol nous 
agrandir pour pouvoir stacker 
lous vos envois C'est a un tel 
point que si nous n'avons pas recu 
d'envois supplementaires d'ici 
deux numeros. XL400. R00 et 
consort . se relrouveronl sur la 
louche pour un mois Du chanta- 
ge ? Parfaitement, du chanlage et 
caracterise de surcroit ! Agilez 
vos cellules grises et le bout de 
vos doigts. vos consoles ne ser- 
vent pas qu'aux jeux. 

Suite page 8 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
ATARI . CANON X-07 . CASIO FX 702-P . COMMODORE 64 ET 
VIC 20 . HEWLETT PACKARD HP 41 . MULTITECH MP-F II . ORIC 1 . 
SHARP MZ, PC 1211, PC 1500 . SINCLAIR ZX 81 ET SPECTRUM. 
TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07 

HIPPOREBUS IrouvezTexpression qui se cache dans la BD. de I'hippocampe. Decompose en troissyllabesdans les Irois premieres cases, le "tout" a evidemment un rapporl avec Tin lormatique 
(solution en page interieure). 
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BATAILLE DANS LE PACIFIQUE 



II s'agit en utilisant les manettesdejeu, de detruire le maxi- 
mum de sous-marin. Vous avez 60 grenades au debut de 
la partie. 7 sous-marins sont lances ensemble, puis votre 
Bateau. Utilisez la manette n° 1 pourdirigervotre bateau et 
le bouton de tir pour les grenades sous-marines. 

Olivier VETTWILLER 



Mode d'emploi : 

Ce programme peut egalement fonctionnersans manettes dejeu si on 

lui apporte les modifications suivantes : 

- La louche ALPHA-LOCK doit etre enfoncee. 
-620: CALL KEY (0,U,T) 

-630 : IF U— 83 THEN CALL PATTERN (58.112):: CALL MO- 

TIONCI 8.0.20) : :GOTO620 

-640 : IF U-65 THEN CALL MOTION(28,0.-20)::CALL PAT- 

TERN(28.44):;GOTO620 

- 650: IF T-0 THEN 620 

- Les touches A et S servent a dinger le bateau et les autres touches a 
tirer. 



• CALL 
1 CALL 

> DISPLAY AT(12,1J 
1 DISPLAY ATII4.4J 

> DISPLAY ATtl6,4) 
) FOR 1=1 TO IOOO 

• CALL SCREENUi) 

■ DISPLAY ATM. 12) 

> FOR I-I TO 100 




"•LA BATAILLE DU FACIFIOUE*' 
: NEXT I :: CALL CLEAR 
"UTILISEZ LES MANETTES" 



> REM 

' CALL CLEAR 

• CALL SCREEN! 16) 

> DISPLAY AT 1 12.5) : "voui etes a bord d'un [ 

FOR 0-1 TO I0O0 

NEXT O 

DISPLAY AT(17,5> : "VOUS AVEZ 60 GRENADES S 

FOR 1-1 TO 200 

NEXT I 

CALL CLEAR 

W=0 : : A=50 

CALL CLEAR 

S=60 :: R=0 :: A-A*10 



230 
260 
270 



360 CALL 



CALL SCREEN(INT('.15-3»»RND)+3t 
REM BOAT GAUCHE 

4."O0OOOOOOFFFF7F3FO00OOOOO0OO0O00O0O4OEO4OFFFFFBFF0OOOOOOOOOOO0'.. 



370 CALL CHAR (32, ' 

3BO CALL CHAR(40."FFFFFFFFFFFFFFFFFF" 

390 CALL COLOR! 1,5. I) 

400 CALL CDLDRO, lh. 1 ) 

410 REM DECOR 

420 CALL HCHORtl, 1,40,<7£>) 

430 CALL HCHARI4, 1.32.640) 



440 DISPLAY ATM, 31 : "SCOPE: " 

430 DISPLAY ATtl,9):W 

460 DISPLAY AT ( 1 , 151 : "GRENADES: ~ 

470 DISPLAY AT(1.24I:A 

480 FOR U-30 TO O STEP -2 

490 CALL SOUND (50, -5, U) 

300 NEXT U 

5IO REM GRENADES 

520 CALL CHAR (tOO, "0000 IBieiBtBOOOOOOOOOOOOOOOOOOOOOOOOOOOOM 

00" 1 



■oooooooooooooobooo 



"■"'■>9aFEf=FFFE3-'i'..» mm 

00" > 

565 S'hO 

570 FOR 1=1 TO 7 

580 S-SMO 

590 RANDOMIZE :: CALL SPRITE (41 ,60. 2, S, 1 ,0. INT ( (40-10) »RNO) +101 : : NEXT I 

600 CALL MAGNIFY(3) 

610 CALL SPRITE(#a,44,2. IB. 100.0.0) 

620 CALL J0YST(1,U,T»:: CALL KEYd.P.L) 

630 IF U = 4 THEN CALL PATTERN (»B, 1 121 : : CALL MOTION ma. O. 20) : : GOTO 620 

640 IF U— 4 THEN CALL PATTERN 148, 44) : : CALL MOTION (4B, O. -20) : : GOTO 620 



CALL SOUND (H 

670 FOR J = J TO 15 :: NEXT J 
680 FOR 1=1 TO 45 :: CALL COINC(ALL. C) : : 
690 NEXT I 

700 CALL MOTION(49.0,0) :: CALL POSITION!.! 
~~ F<71 THEN V=l :: GOTO BOO 



CALL SPRITE("9. 10< 



THEN 700 



CALL DELSPRI1 



GOTO 800 
GOTO GOO 

GOTO SOO 
: GOTO 800 
: GOTO BOO 
: GOTO BOO 



720 IF F>73 AND F<S3 THEN 

730 IF F>B3 ANO F<93 THEN V-3 

740 IF F>93 AND F<103 THEN V»4 

730 IF F>104 AND F<I13 THEN V-: 

760 IF F>113 AND FM23 THEN V=, 

770 IF F>123 AND F<133 THEN V=7 

7H0 IF F>135 THEN CALL DELSPRITE 

790 A-A-l :: DISPLAY AT(1,24»:A ; 

BOO CALL DELSPRITEI49) 

BIO CALL PATTERN («V, 95) 

B20 CALL DELSPRITEI4V) 

B30 CALL BOUND '.200. -7, O] 

B40 W=W*10 :: DISPLAY AT ( 1 , 9) SI ZE (4> : W 

850 A-A-l :: IF A-0 THEN 930 

B60 DISPLAY AT!1,241:A 

B70 R=R+1 :: IF R=7 THEN BBO ELSE 620 

8B0 CALL MOTION(«B,0,0) 

890 FOR 1=1 TO 40 

900 DISPLAY ATI12, 12) :"BRAVO.aN RECOMMENCE 

910 NEXT I 

920 GOTO 310 

930 FOR 1=1 TO B 

940 CALL MOTIONt»I,0,0) 

950 NEXT I 

960 DISPLAY AT ( 1 2, 12) : "F IN DE LA PARTIE" 

970 DISPLAY AT < 1 4, 12) : "UNE AUTRE?" 

9SO DISPLAY AT 1 16, 1 2) : "TAPEZ 1 POUR OUI" 

990 CALL KEY(O.N.M) 

000 IF M=0 THEN 990 

010 IF N=49 THEN 300 

O20 FOR 1=1 TO 16 

030 CALL SCREEN! I) 

040 NEXT I 

050 CALL CLEAR 

060 CALL D£L5PRITE(AL 



THEN 9;0 ELSE 620 
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BON DE COMMANDE 

TARIFS AU 16/3/84 



Prtnom 
Adressc 



Vil/e 



Ces prix sont indiottlh ei peuvent etre modifies 

wni pieavii. 

Produiti dfsponlWes dans In Jlmfie de no* stocks 

en m.igAjin. 

PprrlcJpiillon nun Itnii de port et d'cxpedltfon en 

recomrrifindt pour les loglcfels : + 30 F. 

Promorlon complete APPLE: transporxeur: 

20 kflos + 185 F. 

LA REGLE A CALCUL : 

65/67, bd Saint -Germain. 75005 PARIS 

Tel. : 325.68.88 - Telex r ETRAV 220064 F/1303 RAC 
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COMMODORE 



Commodore 64 Pal 

Inierlitre cenirontc + cAble 

Lecieuf de disqucs Vic 1541 

Imprim.inte MPS 801 

ff aceur de courbcs Vic IS20 

OOie pent el 64 

C^bie video 64 
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PROMOTION EDUCATION JUSQU'AU 31/3/84 

• ' apple »* . | /ogicjei edi-logo ou 

jr • 4 loglcieli dc l.i sSfle Point bac 
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• I monlleur 



• [ngcnom^ltie 

• nombres (ompleies 
PHYSIQUE I 



• induction et a 

• product vcetoriel 
PHYStOUE2 

• circuits OSdBans 
EDI-LOGO 

Le f.niH'ii- langage LCXjO. en tr.inc.ii 
dans la version ortgfriale 

CARTE PORTE-PAROLE 



VI-FI NATHAN 
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REUSSITE 



Ce jeu tr6s connu, se joue avec un jeu de 32 cartes dispo- 
ses en quatre rangees de 8 cartes faces cachees. 
Lobjectif du jeu est de ranger les cartes par couleur et 
dans I'ordre classique des figures (AS, ROI. DAME, VALET 
10, 9, 8, 7) 

Grace a ce programme vous pouvez dorenavant jeter vo- 
tre paquet de cartes pour le remplacer par un ecran, un 
stylo optique et un T07. 
Bonne reussite ! 

Christian PASCAL 



Mode d'emploi : 

1 ) retourner la cade 1 (par exemple AS de trefle) 

2) Enlever la carte 1 (elle s'efface) 

3) poser I'AS de trefle a la place choisie (par exemple X) 
4} revenir en l el y placer la carte qui elait en case X 

5) recommencer I'operatton 

6) Si un 7 apparait dans le lalon on ne peut pas le deplacer on prend la 
carte suivante du talon. 

Le jeu s'arrdte lorsque les 4 "sept" sont sortis 

Le T07 retourne les carles restantes (s'M y en a) et affiche le resullat. 
Remarques : Une seule operation est possible au coursdu jeu. Seul ris- 
que d'erreurs : Placer une cartedans une mauvaise position : parexem- 
pie le DIX de cceur mis par erreur a la place du VALET de Cceur 
Attendre la sortie du valet et le mettre a sa place. 
Le DIX retourne dans le talon et on peut le replacer. 
Melange des cartes : il s'effectue de facon pseudo-aleatoire {fonction 
RNDJsuivantle temps mis pourappuyersurENTREEIorsde son appari- 
tion dans le coin superieur gauche sur le dos des cartes. 



10 GOTO 409 

11 CLSiSCR£EN0,6.6 

12 FOP 1 = 1 TO 39iflTTRBB,tlLOCATE3>I9 iPP 

int-quin:e second; de -■■-■vr-z : -.r : : 
attpbs.o 

13 CLEAR, ,31 



14 



DEFINITION GR* 

23 DEFCR»<B>-9,16,56, 124,254, 124,56.16 
33 AI«" ■+GR*(8>+GR*<8)*- ■ 

24 ' 

30 DEFGRI' I '-0.63,273. 254. 124,124,56. 16 

33 E* = " •+GRt<l i*C»t<l>»' * 

34 ■ 

35 PIOUE 

48 .DEFGR*-. 2' ■ 16. 56. 1 24 . 254 . 254 . '. £4 ■ : = . 5* 

43 £*=" **GR*<2)+CR»i 2 ■-' " 

44 - 

45 ■ TREFLE 

4 6 OEFCPK 3 ■-!:■- 56. 16.84. ;54, 34, 16, 16 
4? F* = " ■*GR*'"3)*GR*<3>** " 
43 ' 

5 • TETE VALET <ENDR0IT) 

51 DEFGR*<4)=7. 31. 16.10.2.9.4,3 

32 DEFGR* 5 .'=224, ■--,. ■:. s.j. l •; . ]44.32.: r2 

53 T* = GR*'.4"GR*<5) 

54 ' 

56 . TET£ vftLET CENVERS) 

57 DEFGR1117>"3,4,9, 6, 10.16,31,7 

53 DEFGR*<13>= 192.32. 144. 16, 30. S. 243, 224 
59 V1*GR*<17).GRI<I8> 

63 ' 

64 • TEIE: 0(iK 

65 &EFGR*(.£6j*10.7,4, 10,8.29.20,59 

66 DEFGR*' £7 •■ 168. 1 ?2. 64 . : 68. 72 . 11 2 . 39, 1 
64 

67 D*=GP*<26'*GR*<27) 

68 ' 

69 • TE:TE p Afl £ ENVERS 

70 DEFGP*<28>*29, 10, 14,4,5,2.3,5 

71 DEFGRI '2? = £20. JO, \i-. 16. 38, 32. 2 24. SO 

72 ni=GR*'2S>-CR*<29) 

73 ' 

75 • TETE ROI 

76 DEFGRI'30 ' = 1 3. 7. 3. 1 0. 24, 9, 12, 3 

77 DEFCR*<31>=176.£24.!6.38.24.144,48,19 
2:0* = GP*-'3e:.'-GR(C31> 

79 ' 

89 • TET E RC j (ENVERS) 

82 DEFGP*(32, = 3.12. J-.24,16,S,7.13:DEFGP* 
(331-192, 48. 144, £ j, 3 ;,, •£, £24, 176 

33 I* = GR*'.32'-GRI'33.. 

34 • 
37 ' 

58 PGITRINE ENDPGIT 

93 DEFGP*'7>=12,59. 115,227, 195, 193,193.2 
25 

109 DEFGR*' 6 -=43, 220. 2S6. 199, 195, 131,131 
,135 

102 C»*GR*'7)-GR*0) 

103 ' 

]Q4 , PCITF1NE ENVERS 

105 DEFGR*<14.=225,193.193, 195.227, 115,5 
9,12 

106 DEFGR*' 1 5) =135. 131, 13 1,1 95, 199, 206, 2 
26.48 

107 U* = GPK14>*GRf(15) 
123 ' 

123 ' VENTPE1 

138 DEFGR*' 11) =224, 224, 112.56.28, 14,7,7 

140 DEFGR*<12)=7,7, 14,28,56,112,224,224 

141 R* = GR*-:il j-GR*<12> 

142 ' 

143 ' VENTPE 2 

144 S*=GR*<12'*GR*'!1> 

145 ' 

146 • 



-EPAULES BRAS 

136 DEFGRS'6)'0.0,S,0,3,7,15,31 

133 DEFGR*' ?' =0,3,8,6, 192,224,240,24 8 

168 DEFGP*<I0'=24, 24, 66,66, 60, 60,24,24 

163 DEFGR»a3> = 31, 15,7,3.6,0,0,0 

178 DEFGR*-- 16. '=243. 240, 224, 192,0,0,6,8 

172 ' 

173 ' 

176 ' 

187 ' 

I9e C0EUP.P10UE, TREFLE 

' ENVERS; 

280 DEFGR*'2I ."16.56,124,124,254,238,63. 



205 DEFGR* '. 22 > -56. 16, 124,254,254, [24,56, 

16 

218 DEFGRf(23>» 16, 16,84,254,34, 16,56,16 

289 ' 

29B • V a 1'uwers 

388 DEFGR*' 19 "' = 6, 24, 36, 36, 66,66,66,0 



378 D£FGR*<34>=0,6&,66, 124,66,36,24,0 

398 C0T04866 
393 ' 

396 ' 

397 . PRESENTATION ■ 

408 CLSs SCREEN, 8, 0: B0X<3, 6)-(36, 13) "C, 
iCOLORl 

416 FOP N-l TO 3:LOCATE0, ]8,BiATTP81, 1. 

428 PRINT" «• REUSSITE *• 

436 FOR 1=1 TO 200INEXT 

432 PLAY-O3L12DQriISOf1IS0DO" 

446 UNMASI':FOP 1-1 TO 560:NEXT 

445 COLOR N*l 

458 NEXT N 

460 CLSt ATTRB6,8!SCPEEN6,( 



• * Je 



eU 



470 PRINT:PPINT 
JEU"!COLOP0,6 
480 PRINT:PPINT 



art* 



CQL0R3,4:PRIN 



: dc droit* f 01 



498 PPINTiPRINT- 
588 PPINT1PPINT" 



505 FOR 1=1 TO 20JLOCATE 33,23-COLOP 6:P 

PINT "1NEXT 

510 FOR 1-1 TO 2S1L0CATE 33. 23: COL0P3, 0: 

PPJNT"ENTR£E":NEXT 

528 Ll-INKEV*: IF LSOCHRX13) THEN 585 

536 SCREEN, 0,01CLS 

548 COLOR 3,4:PPINT:PPINT" • POUR JOU 

ER • 

543 COLORS, 6:PRINT" 'En appusant le er 

558 PRINTiPRINTiPRINT" 1- Petourner la 

isre carte du talon 

560 PRINT- 2- L'enlevei- <clle s'e*face> 

■tilt reaplace alor: la carte '4ui s 

e trouvait a tet endroit la) 

570 PRINT" 3- Placer cette nouuelle car 



■ PRIMTi PRINT" 



._•■: 



596 FOP 1 = 1 TO 20:L'JChTE 33.23:COL0P 6:P 

RINT" ":NEXT 

688 FOR 1=1 TO 20=LOCATE 33. 23: C0L0R3. 0: 

PRINT'ENTREE":NEXT 

618 L*=INKEY*:1F LI<:CHR*.13' THEN 596 

615 SCREENB,6.6:CL3:COL0P3.4:PR[NT:PRINT 

:PRINT:PPINT:PPIN7:PPINT" *** 

REMARQUES *** 

628 COLORS, 6:PPINT:PRINT:PRINT" - Lors=iU 



1c 



Pi a. 



R[NT:PPINT:PPINT" - 1 



carta 
1'orcfii 



alo 



utes 



aloi 



ltat 



iche." 

658 FOP 1=1 TO 20SLOCATE 33, 81: COLOR 6:p 

RINT- ":WEXT 

666 FOP 1=1 TO 28:L0CmTE 33, 21 : COLORS, 8: 

PRINT"ENTREE":HEXT 

678 Lt-INKEY*: IF L*<>CHRKJ3) THEM 653 

998 GOTO 11 

998 ' 

999 ' 

[gee ■ DEFINITION DES CARTES 

1810 ' 7 DE CARREAU 

1615 ' 

1020 COLOR ltLOCftTEC/LiPRINT'7 ":LOCAT 

EC,L-l-.PPl:iTMi:L0C^ T EC,L-2:PPlNTA*:L0CAT 

EC.L*3:PRINTA*:L0C«TEC,L'4-.PP1MT- "*GP1( 

6)+" ■:L0CATEC,L'5:PPINTSPCf4> 

1829 RETURN 

1836 ' 8 DE CARREAU 

1836 ' 

1848 COLOR! :L0CATEC.L:PP1NT"3 -: LOCATE 
C,L+1:P-RINTh*:L0ChTEC, L -2: PPIMTA*: LOCATE 
C,L*3:PPINTA*:LOCATEC,L--4:PP1NTA*:LOCATE 
:,L*5:PRINTSPC(4) 

1849 RETURN 

1058 ' 9 DE CARPEAU 

1054 ' 

1068 COLOR KLOCATECL: PRINT "9 ": LOCATE 

C, L*1:PRINT&*:L0ChTE';, L'£=PP I 'JTC.*: LOCATE 

C, L+3:PPINTft*: LOCATE:, L+4: PR IMTft*: LOCATE 

C,L*5:PPINT- -*GP*'0J*" " 

1669 RETURN 

1078 ' 10 DE CfiPREAU 

1074 ' 

1030 COLOR1:LOCATEC,L:PRINT"10 "iLOCATE 

C,L*l:PRlNTA*:LOCftTEC,L*£:PPINTAi: LOCATE 

C,L*3:PPlNTA*:L0CHTEC,L'4:pRlNTA*iL0CATE 

C,L*5:PRINTA* 

1689 RETURN 

1696 ' v CE CARREAU 

1695 ' 

1168 COLORliLOCATECL: PRINT" V-;: COLORS: P 
PI NTT*; :C0L0Pl:FPIWTGPJ<8:>:L0CATEC,L«-l:P 
RINTGR*(6); :COLOR0:PPINTC*: s COLOR 1 : PRINT 
GR*<9iJCOLOP4:LOCATEC,L*2:pPlNTCP*(I0); : 
CDL0RB,5!PRINTP*; : C0L0P4, 7: PR 1NTGR*' 18) 
1105 LOCOTEC,1*3:PR1NTGR*<10>;:COLOR8,S! 
PRINTS*? :COL0P4,7!PPINTr J P*<18):C0L0Rl:L0 
CATEC,L*4:PRINTCR*a3>;:C0L0R6:PRINTU*;: 
COLOR! :PRINTGR*< 16): LOCftTEC, L*5: PRINTGR* 
C9); :C0LOR6:PPINTV*; : COLOR 1 : PRINTGR*< 19) 

1169 RETURN 

1110 ' D DE CARREAU 

1115 ' 

1126 COLOR l: LOCATE:, L : PR INT'D"; : COL0R6: P 
RIKTD*; JCOLORliPRINTCRJce^LOCATEC.LfHP 
PINTCR*(6);:COLOR0:PPlNrC*;:COLORl:PPINT 
GR*<9>tCOLOR3iLOCATEC,L*2:PRINTGR*<10>;: 
COLOR0,5!PRINTP*; ! C0L0P3, 7: PRINTGP*< 16> 
1125 LOCATEC,L*3:PRINTGP*a0); :COLOP0,5: 
PRINTS*; :COLOR3,7:PP1NTGR*U0-:COLORI:LO 
CATEC,L*4!PRINTGR*( 13);: COLORS: PRINTU*; : 
COLORUPRINTGRlf 1 6 1 1 LOCATEC, L*5! PPIHTGR* 
(0); :COLOR0:PPINTM(; :C0L0P1 I PP I N TCP* (25) 
1129 RETURN 

1136 ' R DE CARREAU 

1135 ' 

1140 COLOR l: LOCATEC. L : PRINT"R" ; : COLOR0: P 
RlNTO*n COLOR! :PPINTGP*(0 ■: LOCATEC, L + i : P 
R1NTGR*(6>;: COLORS: PPINTC*;: COLOR!: PRINT 
GR*(9):COL0R2: LOCATEC, L*2:PRINTGR*< I 6>;: 
COLQR0,5:PRINTRi; I C0LOR2, 7: PPI NTGPFI 18) 

1141 LOCATEC, L*3: PPI NTGR* I I0j; JCOLOP0.5! 
PRINTS*; :C0L0R2,7:PR1NTCR*'. 16 J 

1145 LOCATEC, L*4: COLOR 1 : PR INTCRK 1 3 >S t CO 
LOROtPRIKTU*;; COLOR 1 :PPIHTGPC 16' ILOCATE 
C.LtSlPRlNTGPC 0>; : COLORS: PRINT I*;: COLOR 
I:PP1NTGR*{24) 
1 1 49 RETURN 

1156 ' A DE CARREAU 

1153 ' 

1156 DEFGR*< 35 >=0, 8,6,8,6,1. 3, 7:DEFGR*<3 

6)-e,e,e,0,e,0,i2e. i92idefgr*(37J"1S,7/3 

,1.0,0,6,8:DEFCP*'38)>224,192, 128,0,6.0, 

1168 COLORliLOCATECL: PR I NT "A ■: LOCATE 

C.L*l:PPINTSPC'4):L0CATEC,L*2: PRINT" "*G 
R*(35>'CR*(36)«' ":L0CATEC,L*3:PRINT" ■• 
GR*(37)*GR*.38>'" ": LOCATEC, L »4t PPINTSPC 
<4 /: LOCATEC, L'5: PRINT" "*CP*f34> 
1289 RETURN 
1218 ' 7 :■£ COEUR 



1228 COLOR HLOCATEC.LJPPlNT-7 
CATECL'l :PPlNTEi: LOCATEC. L + 2: 



:PRINT&(: 



AS-R01-DAME-VALET-DI 



CATEC,L*l:PP!NTEIiLOCuTLL.L-i;:p»<JNi 
CATEC. L*3 : PP 1 NTB1 : LOCft TEC. L*4: PPI NT 
P)i [)•" "!L0CATEC,L*5:PRINT6PC'4. 

1 35Q DTTIICM 



1240 COLOP1!LOCATEC,L!RR1NT"9"» H 
ATEC.L + liPPINT6l!L0i:«!Er:,L«2(PPINTBt 
rtTEC,L'3l PPI NTBl: LOCATEC. L»4lPRINTBI 



TO 




RTEC,L43iPRINTSPC(4> 

1249 RETURN 

1250 ' 9 DE COEUR 

1254 ' 

1260 COLORHLOCftTECLiPRINT'9-*' " = LOC 
ATECL'l : PRINTS*: LOCATEC. L-2: PRINTS*: LOC 
ftTEC,L*3;PPINTE*iL0CHTEC,L-4:PPIHTe*:L0C 
ATEC,L*5:PRINT" "»GR*(1)*" ■ 

1269 RETURN 

1270 • 18 DE COEUR 

1274 ' 

1260 COLORKLQCATEC.LiPRINT'ie "^LOCATE 
C,L*1:PR1NTE*:L0CATE:.L-2:PF jNTBl: LOCATE 
CL+3IPRINTB* J LOCATEC . l-4: PPINTB*:L0CAT 
EC.L*5:PRINT6I 
1239 RETURN 

1296 ' V DE COEUS 

1295 ' 

1368 COLOR! : LOCATEC, L : PRINT- V-;:COLOR0:P 
PI NTT*; : COLOR! : PRINTS I- \ ■: LOCATEC, L*l : P 
RINT&R*<6>::>:0L<;P0:PPI?ITCl::C0L0Rl:PPINT 
Gfi*-:9): COLOR J : .-'C-tt.: , . .; : pp ; ijtgpi ■ : -j ■; : 
COLOR8:PRINTR*;:COLOR4iPR:NTGP*C10j 
1303 LOCATEC,L*3:PP1NTGR*<10),-:C'OLOR0:PR 
INTS*;:C0L0P4:PPIHTGPt' I ) : COLOR 1 : LOCftTE 
C,L*4iPPIHTGP*. 13);:C0L0Pe:PPINTU*;:C0L0 
PI :PRINTGR*M6>: LOCATEC. L-5: PP INTCR*< 1 ); 
:C0L0R6:PR1MTVI: iC'JLORl : f F : riTGR* C 19> 
1389 RETURN 

1319 ' D DE COEUR 

1315 ' 

1328 COLOR 1 J LOCATEC, L: PRINT "D"; : COLORS: P 
RINT&*; :COL0P::PRINTi,PI<: ! / : LOCATEC, L«-l : P 
RI«TGR*<6>; :C0L0R6:PRlriTCi: : COLOR 1 : PR I NT 
GR*C9):C0L0P3: LOCATEC, L-t-2: PRINTCR*< 10);: 
COLORS: PPI NT&*: : C0LGP3: PP I !IT6P*< 18> 
1325 LOCATEC, L- 3: PPI NTGR *< 16 j; : COLORS: PR 
I NTS*; : COL0P7: PPj ijtGPI' ! ■: CCL0P1 : LOCATE 
C,L+4:PPINTGP*a3:':.'COLOR0:PRINTU*;:COLO 
Pl:RRINTGR*< I 6 ) : LOCATEC, L*5 : PR 1 NTGR* < 21 ) 
: : COLuRQ:PPIMTtiJ; : COLOR 1 : PR i MTGRX25) 

1329 RETURN 

1336 ' P DE COEUR 

1335 ' 

1346 COLOR!: LOCATEC. L:PP INT -P"; : COLORS: P 

RINTO*;:COL0Pl:PRINTGR*' I ): LOCATEC, L*l : P 

RINTGR*(6>; : COLORS: PR INTO*; : COLOR 1 : PR I NT 

GR*(9):COL0R2: LOCATEC, Lt-2: PPI NTGPJU 6); : 

COL0R8:PRI.'ITPJ: :C0L0R2: PP : riTGPK 18) 

1341 LOCATEC, L-;:PPINTGP(, 10) ;:COLOR0=PP 

IMTS*;:COLOR2:PRINTGR*a0) 

1345 LOCATEC, L*4 : COLOPl: PR ;.'-:TGR*< 13);: CO 

L0R6:PRINTU*::COL0Pl:pPINTGP*' 16 ■ ILOCATE 

C,L+5tPRINTGPt.:21 j;:COLOR0:PPIHTI*;:COLO 

Rl:PPINTGR*C24) 

1349 RETURN 

1358 ' A DE COEUR 

1355 ' 

1356 DEFGP*<39>=0,O,8.e,8,4, 14, 15: DEFGR* 
(4e>=8,e,e,e,6,64,224.2£4:DEFijR*',41) = 7,7 
, 3, 1,0, 0,6, 8: DEFGR*': 42) = 1 92, 192, 128,0.0. 

1360 COL0Rl:LOCATEC,L:PRINT"A ":LOCATE 
C,L*1:PRIHT3PC'4j: L OCh TEC . L«-2: PRINT " "+G 
R*C39)*GR*<40>»" ":L0CATEC.L*3:PRINT" "t 
GR*(41)tGR*<42)*" ■ : LOCATEC, L*4: PPI NTSPC 
C4>: LOCATEC, L*5: PRINT- -tGR*<34> 

1409 RETURN 

1410 ' 7 DE PIQUE 

1415 ' 

1420 COLOR 0:L0CATEC,L:PPINT-7 ' : LOCAT 
EC, L*l:PRINTE*: LOCATEC, L+2: PRI NTE*: LOCST 
EC, L*3: PR! NTE*: LOCATEC, L*4:PPI NT" -*Gfi*< 
2) + - *: LOCATEC, L-5: PR I NTSPC(4> 

1429 RETURN 

1438 ' 8 DE PIQUE 

1436 ' 

1440 COLOR0:LOCATEC,L:RRINT"8 " : LOCATE 

C, L-. l:PRINTE*: LOCATEC. L-2:PP I NTE*: LOCATE 

C,L+3:PRINTE*:L0CATEC,L*4:PPINTE*:LOCATE 

C.L+3:PRINTSPC<4) 

1449 RETURN 

1430 ' 9 DE PIQUE 

1454 ' 

1460 C0L0R8:L0CATEC,L:PRINT-9 -:LOCATE 
CLUSPRINTE*: LOCATEC, L*2: PPI NTE*: LOCATE 
C,Lt3:PRINTE»: LOCATEC, L*4: PR INTE*: LOCATE 
C,Lt3:PRINT- -.GR*(2)*" " 

1469 RETURN 

1470 ' 10 DE PIOUE 

1474 ' 

I486 COLOR0 : LOCATEC, L: PRINT" 16 "ILOCATE 
C.L*1 :PRINTE*: LOCATEC, L+2:PRINTE*: LOCATE 
C, L*3iPRINTE*: LOCATEC, L*4:PRINTE*: LOCATE 
C,Lt5:PRINTE* 

1489 RETURN 

1490 ' V DE PIQUE 

1493 ' 

1560 COLOR0:LOCATEC,L:PRINT"V": : PR! NTT*; 

:PRINTCR*(2):L0CATEC,L*1 : PR I NTGR* (6 ); : CO 

L0R6:PRINTC*;:PRINTGR*<9):COLOR4: LOCATEC 

,L+2:PRINTGP*(10);:COLOR0,6:PPINTR*;:COL 

0P4,?:PRINTGR*(16) 

1565 L0CATEC,L»3:PRINTGP*<18)j:C0LOR6,6: 

PRINTS*; :C0L0R4,7:PRINTGP*': 1 0) : COLORS: LO 

CATEC,L*4:PRINTGR*(13);:COLOR6:PRINTU*;: 

PRINTGR*(16):L0CATEC,L'5:PRINTGR*'22); :C 

OLOR0:PRINTV»; : PP INTGRK 19 J 

1569 RETURN 

1510 ' D DE PIOUE 

1515 • 

1520 COLORS: LOCATEC. L:PRINT"D-;: COLORS: P 

RINTD*;:PP I NTGPK2): LOCATEC, L*l:PRINTGR* 

<6); :PRINTC*; : PR I NTGR* (9 > = C0L0P3: LOCATEC 

,Lt2:PRINTGP*U8); : C0LOR8. 6i PP1NTR*; : COL 

OR3,7:PPINTGP*(10) 

1325 L0CATEC.L-3iPP[NTGPt'I0J;:C0LOP8.6i 

PPI NTS*; JC0LOP3. 7: PF I NTGR I' 1 > ■ C0L0R8: LO 

CATEC,L+4lPRINTGP*(13); :PPINTU*; :PPINTGP 

*< 16) : LOCATEC, L'5' PPINTCR*<22>i:PRINTrl*; 

:FRINTCR*(25) 

1529 RETURN 

1530 ' R DE PIQUE 

1335 ' 

1340 COLORS: LOCATEC, L: PRINT "R" J SPRINTO*; 
: PRl NTCR*( 2): LOCATEC, L' !■ PPI NTGR* (6>;:PP 
lNTC*;:PRlNTGP*(?>:C0L0R2:L0CArEC,L*2:RR 
INTGRK10); :COLOR0,6:PPINTP*: :C0LOR2,7:P 
RINTCR*tl6> 

1341 LOCATEC, L»3:PP1NTCP1 ( 10); :C0L0R6,6l 
PRINTS*; : COL0R2, 7i PPINTGRI'10> 

1543 LOCATEC, L*4: COLORS: PR 1NTGRH l3>;'PR 
INTU*;:PRINTGP»' 1 6 • 1 1 OCATEC, L'3l PR 1NTGRI 
(22);iPRINTI*|[pRINTGR*(24) 
1349 RETURN 

1330 ' A DE PIOUE 

1536 DEFCRI(43)=0, 8,0.0. 1,3. 7, 15:DEFGR*( 

44)=0,8,6,O,S, 123. I92.2£4:DEFCP*>45>-13, 

7, 1, 3, 8, 0,0, 61 DEFGR!' 46 ' = 224, 192, 8, 128,8 

,8,6,8 

1360 COLOPeiLOCATECLiPPlNT-A "ILOCATE 



C.L* HPRINTSPC<4)1 LOCATEC, L-2:RPI¥T- - . •, 
P*M3)tGP*<44,.- ".LOCATEC, L-3:RPl«r- "• 

55?J?32*S5! t4 *2*' *'i.ocATcc»tMiw 

'4,t LOCATEC, L'3: PRINT- •*GM<34) 
I6S9 RETURN 

1610 ' 7 DE TBEFLE 

1613 ' 

1620 COLOR S:L0CATEr., L :PRlNT-7 *JLOC«T 
EC,L'l:PPlNTrii LOCATEC. L*2:CPInrr,: 
EC. L*3:PRINTFt: LOCATEC, L-4: PPI NT- ■ ■ y. t 
3>»" ■tL0CATEC,L-5:PRIHT3PC'*, 

1629 PETURN 

1630 ' 8 VI TFEFLE 

1636 ' 

1640 C0L0P8:L0CATEC,LiPRINT-3 -ilOCATE 
C, L>|: PR INTF*i LOCATEC, L-2!PP!NTPl: lOCmTE 
C. L*3: PP I NTF*: LOCATEC, L-4: PR INTFt: LOCATE 
C.L-5:PR1NTSPC<4> 
1649 RETUPN 

1630 * 9 DE TPEFLE 

1654 ' 

1668 C0LOR81LOCATEC.LIPRINT-9 'ILOCATE 
C. L- i: PR IKTF!:lOCATEC.L-£:PP1NTF I: LOCATE 
C, L*3:PR1NTFI: LOCATEC, L»4: PP JMTF*: l ""-■£ 
C.L-51PRINT" '.GR*'3j*' " 

1669 RETURN 

1678 ' 10 DE TPEFLE 

1674 • 

1680 C 0L0P6 : LOCATEC. L: PR INT- 10 -iLOCATE 

C L*l :PRINTF*: LOCATEC, L*2: PR I NTPi: LOCATE 

C, L'3:PR1NTF1: LOCATEC, L-4! PPINTFI: LOCATE 

C,L'5:PP1NTF* 

1639 RETURN 

1698 ' V DE TPEFLE 

1695 ■ 

1788 C0L0R6: LOCATECL: PRINT "V;: PRINT Ti; 

:PPINTCR*(3)!L0CATEC.L-l:PPINTGRH6 , .::C0 

LOP@:PPINTCt: IPRIMTGSX9 i 1C0L0R41 LOCATEC 

,L*2:PPINTCPJ';iO.'.: : COLORS: PP I NT»* : : IOLOP 

4!PRINTCR*<16> 

1785 LOCATEC,L*3!PRINTCR*UB)::C0LOP6:PR 

INTS*;:C0L0P4;PPINTGP*' IS.: C0L0R8: LOCATE 

C,L*4:PRINTGR*': I 3 :■ : : COLORO: PR! NTU»; : PRIN 

TGR*(16):L0CATEC,L'5:PRlWTGPf23);iC0L0R 

01PRINTV*;:PRINTGP*(19) 

1769 PETURN 

1710 ' D DE TPEFLE 

1715 ' 

1720 COLOR0:LOCATEC,l:PRINT"D";:COLOP6:P 

RINTD*iiPPINTCR*(3': LOCATEC. L'UPPINTGP* 

■: 6 );:PR1NTC*;:PRI NTGR* '- 9 :-:COL0R3: LOCATEC 

,L*2:PR1NTCR*' 18 ■; : COLORS : PP I NTPf; : COLOR 

3:PRINTGR*<18) 

1725 LOCATEC, L-3: PPI NTGR*' 18); : COLORS: PP 

I NTS*; :C0L0P3: PPI NTGR*' 1 ,: C0L0R8: LOCATE 

C,L»4:PRINTCP*' . 13>) :PPINTUi; :PplNTGP*i 16 

) l LOCATEC, L*5:PPINTCR*'23';lPPINTri*:: PPI 

NTCR*(25) 

1729 RETURN 

1738 ' R DE TREFLE 

1735 ' 

1740 COLORO:LOCATEC.L:PRINT"R";:PRINTO«; 
:PRINTGR*<3':L0CATEC.L-1:PRINTCR!<6';:PP 
INTC*; : PR! NTGR*' 9) :C0L0P2i LOCATEC, L*2i PR 
INTGR*(10); : COLORS: PRl NTR*: : C0L0P2: PR INT 
GR*(10> 

1741 LOCATEC. L-3: PPI NTGR*' IS': : COLORS: PR 
INTS*;:C0L0P2:PPINTCR*<ie> 

1745 LOCATEC, L*4 iCOLCRy: PR I NTGPJf 13)1 : PR 
INTU*: : PR! NTGR 1' 16 ■ : LOCATEC, L*51 PPI NTCP* 
(23);tPPINTIIi :PPIHTGPI<24) 
1749 RETURN 

1756 ' A DE TREFLE 

1735 ' 

1756 DEFGR*<47)«8,0,0,0.1,3, 1,5:DEFGR*'4 
3 ' = 0,0, 6,0.6. I 23, O. 64 : DEFGR* ( 49 > = 15, 5,1, 
1, 9, B, 8, 8 1 DEFGR*'. 50 > = 224.64,8,0, 8,8,8.0 

1768 COLOR0:LOCATEC.L:PRINT-A ":LOCATE 
C,L*1iPRINTSPC'4, :L 0Ck.TEC.L-2:RRINT- "*G 
R*(47)*GRI(48)*- -:lOCATEC,L-3:PPINT" ■♦ 
CR*(49)*GR*'58)*- "! LOCATEC. L*4t PR J NT SRC 
(4 )i LOCATEC, L*5: PRINT "-GR*'34> 

1769 RETURN 

3997 ' 

3998 ' 

3999 ' GUADP1LLAGE 



4018 
4020 
4836 
4640 



4078 
4030 
4898 



CLSISCREEN6/6 

FOR 1=6 TO 199 STEP5 

LINE<8, !>-'. 1,8) 

NEXT I 

FOP 1-1 TO 120 STEP5 

LINEU, 199)-<I»199,6) 

NEXT I 

FOR 1*1 TO 199 STEP 5 

LINE <128*I,159)-<319,I) 

NEXT 1 

FOR 1=199 TO STEP-5 

LINEC0, ] )-<199-I,199) 

NEXT I 

FOR I"l TO 120 STEP 5 

LINE(I,0)-<199tI,199) 

NEXT I 

FOR 1=1 TO 199 STEP 5 

LINE <128'I,0)-<319, 199-I> 

NEXT I 

SCREEN 4,7 







5008 


FOR I"6 TO 199 STEP48 


^010 


LINE<8, I)-(319, I), 6 


':. 2: -J 


NEXT 


3039 


FOR J=4 TO 39 STEP 3 


3040 


L1HE(J,0)-(J,24)CHRI(127>,5:NEXT 


3039 


LINE(8,24)-(39,24)CHRI(127) 


; >j >'■ ':• 


LINEC34,0)-(34,23)-*",8,6 


5979 


COLOR, 7 


3990 




5991 




3999 








HJCOflPTEUR (No des cases) 




AtRENPLlSSACE (t«*t d« fin) 




TtNo DES CARTES 



6680 DIM A(32),T<32> 

6005 LOCATE0, Si C0L0P3. 8! PRINT "ENTREE- 

6610 K*=INKEY* 

6011 Q-RND 

6812 IF K*<>CHPt(i3'THEN 6010 

6813 LOCATE0,0:COLOR4,7:PPINT" "1F0 
R 1=8 TO 36 STEPS 

6014 L1NEC0, I)-( 1,6) 
6B13 NEXT I 

6816 FOR 1-1 TO 51 STEP 5 

6817 LINE<I,0>-<12»I,12) 
6813 NEXT I 

6819 C0LOR6iLOCATE4.S:PR!NTCHR«ci27)tLOC 

ATE4, UPRINTCHRK 127 > : L0CATE4, 2: PR 1 NTCHR 

*(127)iLINE<0,3)-<3,10).4 

6020 FOR 1-1 TO 32 

6838 R-1NT<RND«32>*1 

6848 IF A(P)-8 THEN A(P) = HTlI>=RlGOTO 

6138 
6838 R = R»UIF R-33 THEN R= 1 
6068 GOTO 6840 
6130 NEXT1 
6997 ' 









RETOURNEOENT 


7990 ' 




7063 F-8 




7810 GOSUB 


20888 


7813 IF I< 


F THEN 7010 


7020 GOSUB 


38860 


7023 IF TC 


>N0D8«1 THEN 7268 


7030 FOR I 


1 TO 288INCXT 


7098 ' 




7099 ' 














ET LA DEPLACER 



7103 ' 

7110 GOSUB 26800 

7128 IF IOF THEN 7110 

7138 H-T(I) 

7132 BOxrci l-l >I1OD8)»40, 1NT(I'8.3)«48 
■ .'I-])nODB)»48*24,INT« l'8.3>*48*47>.7 

7133 FOR I"l TO 300iNE):T 
7146 GOSUB 20800 
7138 8-T<IHT(!)-H 



Su/(e page 12 



GRENOUILLE 



OyelOye! braves gens, ceci est la legendedes 6grenouil- 
les racontee par la Grenouille supreme. 
Queceuxquiontsurvecual'ete1983.temoignentpourles 
sieclesavenirdelachaleurquiyregnait. Etvousquipartez 
ou revenez de vacances, etiez-vous conscient du drame 
qui se deroulait implacablement sous vos yeux ? 
Six grenouilles en furentlesinnocentesvictimes. Leur ha- 
bitat s'etant asseche sous I'effet de la chaleur, les contrai- 
gnit a emigrer vers des rivages plus verdoyants. Leur peri- 
ple fut soigneusement prepare : valise, boussole, passe- 
port, controle des changes etc... 

Mais voila, la terre promise avait bien change. Plus rien a 
voir avec la memoire de leurs ancetres. C'est le drame 
cosmique : confrontation ineluctable entre la nature et la 
civilisation des hommes. 



D'innombrables dangers qu'il faudra surmonter, en depit 
de la fatigue croissante due a un soleil de plomb. les guet- 
tent. 

Asavoir: Des monstresd'acierquisillonnent a toute Vites- 
se une nationale. 

Une riviere alimentee par un barrage electrique. avec un si 
grand debit, que le long des berges les batraciens se fati- 
guent cinq fois plus a lutter contre les vagues, tandis que 
toute chute dans cette eau polluee, a tout autre endroit, 
signifie la mort 

En cequi conceme le barrage, les techniciens ont eu I'idee 
malencontreuse d'en electriser les parois, celles-ci n'of- 
frent plus alors que deux voie d'acces au lac de retenue 
superieur. 

Pierre DAO-DUY 



GRENOUILLE' est la version fran- 
caise, basic et non commercials 
de FROGGER. c"est-a-dire ayant 
a prion tous les defauts. C'est 
sans compter les longues heures 
consacrees par I'auteur a tirer la 
quintessence du systeme graphi- 
que du TRSSO. Celuici n'apas re- 
cule devant les moyens puisque 
la page graphique de presenta- 
tion a ete entierement convertie 
en lignes data et reinseree sur 
recran par des Pokes, pour obte- 
nir une superbe image (pour peu 
on se croirart en Haute Resolu- 
tion) 
Pour faire bouger en basic pres 



dune vmgtatne tfobjets • un* Vi- 
tesse acceptable. I'auteur a du 
creer de longues chaines graph*- 
ques dont il en ex trait une wtetre 
grace a la toute puissante instruc- 
tion MIDO 

Oe meme si I'ecnlure de la routfne 
sonore peut sembter maladrcxte. 
la faute en revient en grande par- 
lie a limpossibilite d'obtenir un 
RESTORE variable sur TRS 80 
Et voila, vous savez tout II nevous 
reste plus qu'a prendre votre cou- 
rage a deux mains et rentrer ce 
programme qui n'a rien a envier 
aux classiques arcades de votre 
ordinateur prefere. 



TRS 80 



INITIALISATION • 



185 ■ 



TEST DE FIN DE PARTIE ■ 



190 IFT=BTHENPRINT359B. "HE OUI ! C'EST TERMINE" ;ELSEGOT01B1B 

191 IFR=6THENPRINTa969. "SUPERBE, TU PEUT ME REMDNTRER CO ENCORE UNE FDIS" t 
132 IFR-5THENPRINT39B1, ,, IL V A £U DES PERTES..."t 

193 IFR=4THENPR1NT39S3. "C'EST OUR HEIN ?* 1 

194 IFR-3THENPRINT3962. "COMMENT VO TU VIVRE RVEC 3 GRENOUILLES SUR Lfl CONSCIENCE 

195 IFR-2THENPRINT3981. "TU PEUT ALLER TE CACHER" I 

196 IFR-1THENPRINT3971, "ES-TU SUR D' AVOIR COMPRIS LP NOTICE DU JEUi"! 

197 IFR-BTHENPRINT3972. "ES-TU SUR D' AVOIR CQMPRIS LE BUT DU JEU'"i 

198 OOTO250B 

199 ' 

lBia ' urn* m mm 



' il m BOUCLE ••••*****-**»•♦**•■*.****+** 

ten ' 

1015 '*«*«****** DEPLACEMENT DES GROPHISMES ft* II lift* ftftftft 

1020 PRI NT3960. STRING* r&3. 156) ; : PRINT3S97, MID«CR*tl ) . R( 1 ) , 63) ; : RC 1 ) =R< 1 >-2 

) < = 1THENRU)"=81 

1B3B PRINT3e33.MID*CR*<2>,RC2).63);:R<2)'>R(2>*2JIFRr2)=>eiTHENRC2)=i 

1040 PRINT37E9. MID»< R«< 1 ) . H<3) . 63) : :R'3)=RC3>-2: IFRC3) (=ITHENRf 3) =61 

105B PRINTa705,MID*(R*(2), R(6) . 53) f :R<4)=Rf 4) *2: IFR(4)=) BlTHENRr4) = 1 

1055 PRINT3M.STRING*f3. 128)1 

I860 PRINT3641,MID*CR*r.l),Rr5>.63)::RC5J=RC5)-2:lFR<5XlTHENRt5)=8I 

1B70 IFV-134THENV=13/ELSEV=134 

1080 PRINT3576, STRING* r Si. ■ V) : : PRINT3513. MID*(E*f 1) . E( 1) . 63) : : E( 1 )=EC 1 ) -1 : II 

1THENEUJ-24 

1090 PRINT3449,MID*<"E«(2).EC2),G3)i:E<2)='E<2)*l:IFE(.2>=24THENEr2)=I 

1100 PRINT33S5,MID«(;E*(3).E(3).E3>; :E<3) "E(3)-l : IFE(3) = ITHENEC3>«*24 

1 110 PRINT3321, MID*(E*(1).E<4).63)1 :EC4) =E(4> '1 t IFE(H)'=24THENE{4)»1 

1115 ■ ft* CCN5ULT. DU CLAVIER ft DEPLACEMENT DE LA GRENOUILLE ** 

U2B O=PEEKU440B)>M»P 

1130 IFOANDBTHENP=P-66:SC=SC»10:PRINT372. ! : PRINTUSING"lift«IIM" iSCl : PRINT378. ' 

1133 IFO=2THEN CLS: PRINTCHR*<23) : : PRINT3390, "LACHE. POLTRON ft.B' X<*0.*--> <. 
HOU' ' HOU! • ": :FORI-1TO1B0B:NEXT:CLS:GOTO259B 

114B IF0fiND16THENP=P+64 

1150 IF0RND32THENP-P-3 

11EB IF0AND&4THENP=P*3 

117B IFP<257ORP)1B20THENP«M 

11E0 PRINT3P,G*t:lFOO0THENGO5UB4520 

1184 'ft* DETERMINATION DES TESTS CORRESPOND, fi Lfi SITUATION H* 

11S5 IFP)9E0THENC=0:COTO1230 

1190 IFP)E4BTHENC=1 :G0T0123B 

128B IFP)576THENC"2:GOTO1230 

1210 IFP)320THENC=3:GOTD123B 

1220 IFP) 192TH£NC«4 

1230 F=F*2:PRINT3121. ! = PRINTUSING"* 
0. 2B50 

1240 IFF-) I00THEN2200ELSE10I0 

1999 ' 

2BB0 '4********** SITUATIONS PRRTICULIERES *»♦»..■.......*. 

2BB1 ' 

2B10 IFPEEKUS359»P) <) 1 2S0RPEEI<( 1S363+P) O 12ETHEN2J0BELSE1 ?40: ' TEST RCCIDENT OE 

VOITURE 
202B F=F*E!GOTO1240:' FOTIGUE DU »U COURONT 

2030 IFP>5I2THENJ*1 ELSEIFP) 44ETHENJ=-1 ELSEI FP) 3B4THENJ=1 ELSEJ=-1 
2040 IFPEEK(15359*P>-1280RPEEKi 153E3*P) =128TMEN2200EL SEP = P* J: GOTO 1240: ' TEST PfiSS 
RGE DE LB RIVIERE 

2B50 IFPEEK'15359*P) O 1 2B0RPEEK ( 1 53E3*P) <) 12eTHEN2200ELSER-R-l :SC=SC*5H0: PRINTS? 
2. T I PRI NTUSING" **•■«" JSC: tPRINT3P.STRING»r3. 12B); :PRINT3214, "0 1 2343 
S": iPRINTa214*3*R.G*: 1GO5UB45E0: GOTDIB0 
2200 PRINTSP. -ROH"! :GOSUB4550iGOTO100 



PRINT3125. "*" : :D^ C GOTO : 



2491 



ENTREE DES MEILLEURS SCORES ■ 



(1 )THENGOSue3000i' -> RETOUR 
:>iPRINT320. STRINU»f 12. 140) t : 
N"lCHR»<170>i IPR1NT314G. 5TRING«U2. 131) I 
2520 PRINT33e4. "VOUS OVEZ RE0LI5E : " I PR1NT3448. "L 
2530 PRINT3&4B. "VEUILLEZ ENTRER VOTRE NOM . 
1-iiINPUTSC* 

2348 SC»-MID«(SC». I.5)iPRINT3330, "MERCI " ! i FORI -1TO100BINEXT>CLS 

2349 ' 

255B '*—..*•• TRI DES MEILLEURS SCORES ET OFFICHnOE —**•** 

2331 ' 

2568 K-0IFORI-1ID5:IFSC)H<I)THENK-I 

2570 NEXT 

23B0 FORI-1TOK1H<I-1)-Hf I) IH*< 1-1 > -K*( I ) INEXT !Hf K) -SCiMKK) -SC« 

2390 GOSU830B0 

2EBB FORI -BT04IPRINT3I •64*198. H*(3-I ) I i PR1NT3I *E4.203. H(5-I ) t 1N£) 

261B PRINT325. "UNE NOUVELLE PBRTIE "MINPUT N«i IFMID*«N», 1 . 1 ) -"0' 

0IT-7IGOTO100 

2620 R-0ISC-BIT-7IGOTO5000 

2999 " 

3000 ■-..—.-»*...* IMRGE DE PRESENTHTION »t.**.i lM l iMMili 

3001 ' 

301B DPTR12B, 128. 136. 14B. 140. 14B. 140, 14B. 140, 140 
3020 DflTRI&B. 140. 14B. 140. 140. 140. 140, U0, 14B. 172 
3030 DOTOIBB. 128. 128. 128. 128. 128. 128. 128. 12B. 128 
3040 DRTni2B. 128. 128. 126. 128. 128. 128, 12B. 128. 128 
3050 D0TH12B. 128. 128. 12B. 128. 12B. 128. 12B, 12B. 128 
3060 DflTai28. 128. 128, 128. 128. 128. 128. 12B, 128. 128 
3070 DflT012B. 128. 128. 12B. 128. 128. 149. 128.012. 003 
3HQ« DOTO019,032. 01 3. 003. B09. 81 2, 01 2, 003. B21 . Bl B 



"FELTCITAT70 




1B0 I il ft NETTDVAGE *****■•.**♦*—****••*».*«. 

1B1 * 

110 RANDOM 

113 ■••■»• TIRfiGE DES INDICES D'EXTRACION DES CHAINES **»•* 

120 F-0:V-I;P = 990:M-990:T-T-HFORI = 1TO5 

13B R(1)-RND<81): IFR(I) (2THEN13BELSENEXT 

14B F0RI=1TD4 

150 E(I)-RND<24) HFECI) <21"HENI5BELSENEXT 

155 '*»*ft* MISE H JDUR DES TABLEAUX DE RESULTOT «*«••» 

160 PRINT30.CHR*(ie8):STRING*(17. 140) !CHR»< IBB) ISTRINGK28, 140) !CHR«< 168) (STRING 

»fl3. 14B)!CHR«eiBB)i:PRINT364.CHR*(191)5" SCORE! " I ■PR1NT382. CHR*( 191 > : " GRENOUI 

LLES RESTANTESi " ! Tl : PRINT31 1 1 . CHR»C 191 ) 5 " F«TIGUE= " I "PRINT3127. CHR»C 191 ) i 

17B PRINT312B. CHRK 191 ) iSTRING»<62. 131 ) 1CHRM 191 ) ! : PRINT3192. CHR»C 191 ) i : PRINT325 

5.CHR*C191)!:PRINT3255.CHR»(191)1STRING»<2a. 1 76) I STRING*! 7. 128) ;STRING*(B. 176) iS 

TRINGK7, 12B>1 STRING* (20. 176) :CHR*< 191 ) S 

180 PRINT32I4. " 12 3 4 5 6" ! : PRINT3214*3*R. G«; 



scgc 


DATA019 


129 


I?ft 


178 


111 


|4<1 


^3- 


im 


03? 




31 as 


DATA 128 


litl 


VI '..•' 


1?fl 


14R 


ITfl 


T T-R 


ITfl 


1^.P 




311? 


DATA140 


1KH 


1411 


148 


IRfl 


1411 


16(1 


178 






3122 


DATAI6B 


14k! 


172 


tea 


178 


tnn 


IAF 


17? 


141 


178 


313fl 


DATA14B 


'■",'.:> 


H '■■/ 


I4fl 


■'. ■.? 


i -.p. 


1611 


143 








DATA159 


1 4'. 


14.V 


14.1 


143 


143 










S15B 


Df»TB159 


14-( 


Id'. 


w t '. 




143 


143 








31&C 


DOTA032 


«.'.> 


\,i:y 


ITfl 


1 ">F. 


1 ''P. 


ITfl 








317C 


DAT0128 


ITfl 


170 


1715 


Ifl7 


!7P 


131 








31SZ 


DATA 176 


17(1 


17fl 


170 


I7H 


17R 










519B 


DATA16B 


1H1 


176 


1 79 


1R1 


176 


173 








328B 


DATA1B3 


1 /h 


1?fl 


i?n 


144 


ITfl 


34q 








321B 


DATA032 


: . 1 , '■ .' 


H',V 


'.-, '. ■ 


144 


il-? 










t.;20 


DRTA032 


i n 


111 


149 


03^- 


tm 


33? 








323B 


DRTR12B 


imw 


1 M 


\7* 


1 -'P. 


i?fl 


178 








^242 


DATR12B 


im 


1 VH 


17ft 


T?n 


1?B 


ITfl 








Z.252 


DRTA12B 


IVH 


inri 


1*4 


i?r 


178 










■■263 


DATR130 


154 


12fl 


1?R 


l-'R 


1?« 


\->f. 


178 






3273 


DRTR050 


i)'-:*: 


IVH 


178 


17R 


■ -■■<■- 


17R 


03 7' 






;i£0 


0DTR122 


.:■ '.;■ 


IVH 


ITfl 


1 VP. 


170 


\m 








Z-23S 


DRTR128 


IVH 


17ft 


178 


170 


l«H 










3 7,10 


DATR128 


r/H 


1 VH 


17(1 


•,-p. 


178 










331 e 


DATA 1 2B 


032 


128 


il '.? 


'■■■::■ 


037 


ITfl 


IAD 


(1-3 ■? 


33? 


3323 


DATRB32 


:i ■■/ 


;■'.,■ 


IVH 


17H 


154 


17R 


17B 


17(1 




3330 


DATA 128 


1 VH 


14H 


r ?fl 


3'-, 1 


CHR 


17« 








3360 


DRTA12B 


i; '..' 


144 


3 3? 


1?S 


(IT? 


17ft 


1'=- 


17ft 




3350 


DATA191 


i4y 


;;:.:■■ 


BI.W 


0T? 


1 7'R 


178 


PL^? 






3360 


DATAI91 


1 ,-H 


im 


1 ■■■'-: 


17R 


i?a 










3370 


DRTR128 


IVB 


i?fl. 


1 --P 


178 












3380 


DRTR12S 




















3390 


DATA 1 28 


1/H 


\VH, 


178. 


ITfl. 


17R 


14S. 








3480 


DATA 1 28 


1 VH 


178. 


i?n. 


i?n. 


17fl 


149. 








3410 


DATA12B 


i :-h 


128. 


178. 


191. 


144, 


17ft, 


17R. 


ITfl. 


178 


3420 


DATA128 


128. 


1/0. 


141. 


1SI. 


14R, 


ITfi. 


03^, 






3430 


DATFU40 


LM1 


i n '., 


17*1. 


1Tfl. 


1?R. 


17R. 


C.P^. 






3440 


DRTR10S 


101 


11 r. 


.IV. 


116, 


101. 










3450 


DRTR10B 




1 ;■ !-: , 


17B. 


17R. 


ITfl. 


17ft. 








3460 


DATA149, 


1VM, 


IK*.\, 


Sl\K. 


ITfl. 


T7R. 


rc.^. 


B37, 






3473 


DRTR149, 


M.V. 


IVH, 


17H. 


ITfl, 


17H. 


1?R. 


170. 






3460 


DATAB32. 


332, 


I'/H, 


IVH. 


ITfl, 


17R. 


170. 


141. 






349B 


DATA14B. 


134. 


l ,■--; , 


1h0. 




1M. 


1?R, 








3S3S 


DATA 128. 


332. 


128. 


17B, 


107, 


3=17. 


105. 


1 16, 


B37. 




3513 


DATAB97, 


114. 


BiV, 


BM, 


A37. 


FK7, 


,17'. 


7137, 






z^:.'.; 


DATA12S. 


r/w. 


IVH, 


1?H. 


I -M, 


141. 


141. 


isr, 






3 , 3:;i 


DATA191, 


1H1, 


141. 


1*«, 


111. 


141, 


191. 


141. 






3540 


DRTR191, 


141. 


141. 


141. 


17ft. 


17R, 


17B. 








7550 


DATR191. 


141. 


141. 


149. 


ITfl. 


1R0. 


157. 


174. 


ITfl. 


1TR 


3560 


OATA1E0, 


176. 


144. 


1^8, 


160. 


1/6. 


144. 


128. 


032. 


032 



3578 


DATA032 


301 


337 


Ill 


04' 


[M 


117 


171 


P.T? 










114 


114 


101 


17f 


in 


157 










156 


1/2 


141 


141 


112 


143 


:i3 










14B 


141 


142 


1U 


17f 


ITfl 








351 e 


DRTA 128 


12a 


171 


1/H 


l ,', 


191 


175 












lbU 


184 


191 


1H1 


191 


191 












162 


IHH 


\KH 


1/h 


l :<- 


178 
































DATA17B 


128 


1/h 


1H6 


1a 1 


: /F 


IA0 








3668 


DATA176 


176 


1/b 


176 


i n 


1 76 


176 








3573 


DATA 176 


1/b 


l/b 


176 


17F. 


144 


: 43 


178 




























7&90 


DRTRI79 


tsa 


1 u 


163 




141 


141 


141 






7 723 


DRTfilfll 


141 


191 


141 


!!■:■- 


IR* 


144 


037 










032 


i 20 


i ,+: 


1711 


14.1 


160 


164 






3720 


DRTA179 


179 




1S1 


1/h 


176 


191 


191 


176 




3730 


DATA176 


1 /h 


1/h 


176 


1 ,-h 


1 PC. 


191 


176 






3742 


DATA 149 


1i-H 


191 


191 


1<I0 


141 


141 


17ft 






3750 


DATA130 


133 


147 


131 


131 


131 


131 


131 


139 


141 


3760 


DATA 140 


191 


191 


159 


191 


141 


141 


141 


14t 


;i\ 


7770 


DATR1S9 




l .■■.-; 


3 '. .' 


178 


03? 


i m 


ITfl 


130 


1 ;■•; 


37S0 


DRTA159 


lb'j 


1B0 


17b 


191 


147 


190 


ITfi 


176. 176 


3 79K 


DATA 176 


1/b 


t !b 


176 


176 


176 


176 


I7fi 




























3810 


DATA 131 


128, 


128. 


i 28 


ITfl 


1R4 


149 


164 


I7K 


176 




DATA 176 




I7H. 


IVH 




147 


143 


141 


1R9 


191 


3333 


DATA175 


191. 


1S1 


141. 


141 


IW 


IBB 


\F.r. 






5840 


DATR12B 


17H. 


178. 


170. 


1B9 


IS1 


11-9 


17ft 






3 £53 


DATR191 


1H1. 


149. 


178. 


ITfl 


17R 


128 








3 esc 


DATA12B. 


17H. 


IVH, 


1H1 


im 


141 


149 


i Tfl 






3870 


DATA191. 




















388B 


DATR191. 


14H. 


146. 


17fi. 


130 


160 


174. 








3840 


DATR12B. 


IVH. 


131. 


Ifll 


1S1 


191 


141. 








3520 


DRTR191, 


















176 


3910 


DRTR17E. 


164. 


128. 


IVH. 


1VB 


178 


ITfl, 


17R. 


178. 


17ft 


3923 


DRTA12B. 


128. 


128. 


17H, 


1 VH 


17ft 


126. 


1?R. 


178. 


ITfl 


3930 


DRTR12B. 


17H, 


17ft. 


171. 


1M1 


1R9 










3940 


DRTA12B. 


17ft, 


130, 


191 


191 


1R1 


130. 








3950 


DATR12B. 


1 M . 


IBO 


1 fh> 




ITfl 


184, 


191. 


IB7 


l M 


35BQ 


DRTR191. 


141. 


1H1, 


1 90i 


141 


I'M 


191, 


1^4. 


179 


13B 


3970 


DATA191, 


141. 


191. 


191. 


1S1 


191 


191. 


191. 


191 


191 


39S3 


DATA 1 86. 


188. 


IBB. 


r !-■>:. 


1HH 


1HH 


1/h. 


1 ffi 


176. 


176 


7553 


DATA 176. 


1/h. 


1/h. 


i rh< 


1 /(■. 


17R 


176. 


176. 


1R7 


m 


4 a 33 


DATA1B3. 


\H.'-. 


177. 


176, 


176 


176 


147, 


|T7, 


i psi 


17ft 


6010 


DATA131. 


128, 


128. 


130. 


139 


133 


140. 


13R, 


Iffl 


178 


6020 


DATA159. 


141. 


173. 


131. 


I.M 


1,11 


129. 


ITfl. 


131 


131 


6030 


DATA147. 


lbfl. 


128. 


186 















6B4B RESTORE:FORI=153EBTO16383!READfi:CS-CS*fi:P0KEI.A:NEXT:lF CSO 1423S7 THEN PRI 
NT-'REVOVER LES DATRS DE LA LIGNE 3B1B R 4B3B SVP" lEND 

4041 •*»***** IMPLRNTRTIDN DE LA ROUTINE SONORE »»**+*** 

4042 M*=STRI NG* < 1 6. 0):POKE1 6526. 24Bi POKE 16527. 12/:CS=0 

4043 FORI=0TO14:READB:CS=CS*B:POKE32752*I.B:NEXTilF CS O 2077 THEN PRINT "REVOVER 
VOTRE LIGNE 4044" SEND 

4044 DATR2B5. 127. IB. 175.69, IB, 254,238, 1.21 1.235.37. 32. 246. 2BI 
6069 ' 

4050 ■.*.....* DEFINITION DES CHRINES DRAPHI0UE5 l ««'l' l' l* 

4B31 ' 

4B7B T-/IF-0 

4B8B G*=CHR*<161)*CHR*U43>*CHR*U66) I R»( 1) -CHR*< 187>»CHR»< 1EB) *STRING*<2. 1B0)*C 

MR* 1 176) iR*(2>=CHR*a76)*STRIN0*(2, 1B4) *CHR« ( 168) *CHR*< 1S3) :E*( 1 ) -STRINGK 1 1 . 128 

)*CHR»tI36)*STRING*<6. 14B) *CHR*C 132) *CHR*( 136)*STRING*(4. 140)+CHR»< 132) 

4090 E*<3)=STRING»U1. 128) 'STRING* < 5. I4B) *CHfl«( 143)*CHR* ( 140) 'STRING* (2. 143)*STR 

ING*(3. 140)>E*(2)-5TRING*U1. I 2R) --STR1NG»C3. 140) 'STRING* (2, 143) *CHR* 1 160) 'CHR*I 1 

43>*STRING*(5. 140) 

6B95 E*<4)>=CHR*ri36)*STRING*C4, 140) *CHR*< 132) +CHR»U36) *STRING*<4, 140> + CHR*{ 132) 

♦ STRING»dl, 128) 

4 100 FDRI»lT02JR*(I)«STRING*t62, 1V8>*R*( I ) +STRING*t8. 128) *R*( I ) 'STRING* <63. 128) i 

NEXT 

41 IB FORI "1T04:E*U) ■=£*<!)+£*< I )'E»U)*E*(I>*E*a) :NEXT 

4120 PRINT325. "INSTRUCTION (0/N) "1 : INPUTN*! IFMID*tN», 1. 1 )="D"THEN5aB0ELSECLS!DO 

TO1B0 

4499 ' 

4500 •"..*.'.**...***»* SOUS-ROUTINE SONORE M ift WUmw i mMHHM 

4501 ' 

4510 P0KE32763, 37 i U-USR(O) : RETURN 
4520 P0KE32763, 44 :U=USR<0>1 RETURN 
4539 ' 

&540 '**»««.»**».,»** 8IBLI0THE0UE SONORE l» nHM»»*rM I i n I 

4541 ' 

6545 ' MMH*ft*ft*ttft**H*H* MARCHE FUNEBRE N«M**ft***N***M«* 

455H 0-200: GOSUB4510:FORI=lTO5:NEXTtGOSUB451Bi FORI =1T05! NEXT :GOSUB4510IGOSUB4510 I 

:a"I65:GOSUB4510:O-175:GOSUB4510tGOSUB451BiO=2B0:GOSUS45I0:O=21B:GOSUB4510iO-;ae 

!GOSUB4310:RETURN 

6555 -ft«fttt*ft*ftft*Mftft*M TROMPETTE D'RIDA M*fttt*«ftft*«ft***ft 

4560 D=214:GDSUB4510!O-1£01GOSUB4510: 0-143: GOSUB4510 I U*21 4:GOSUB4510: D-143IG0SUB 

4510:0-127: G0SUB45! 0: G0SUB431 B: G0SUB451 BIGOSUB4510I 0-12B: GOSUB4510IO-1601 GQSUB43 

iaiO-127:GOSUB4510iO-143JGOSUB4510:O-.lEBiGOSUB4518iO-163i RETURN 

65/5 'ftftHft*********** LETTRE A'ELISE Nft*t**»«**NN**M***ft 

6SBB O-lBB:GOSUB451BJO-107tGOSUB651BiO-100:GOSUB45ia:O-lB7iGOSUB4510iO-10BiGOSUB 

6510: 0=135: G0SUB451 0:0=1 13:GOSU845t0iQ-127iGOSUB451B! 0-151 SGOSUB4510: 0-253 iGOSUB 

4510:0-191 1GOSUB4510: 0=151 :G0SUB451 0:0- 1 35: G05UB451H: 0- 1 91 :GOSUB4310 

4590 0=160: GOSUB45101 0-1 35JG0SUB451 B: 0-1 27 : G0SUB45! 0: 0-1S1 : G0SUB451 B: 0-1001 GOSUB 

43101 D-107IGOSUB6310IO-1BB"DOSUB4510:O-107:GOSUB45101D-1B0:GOSUB451B:O-1351GOSUB 

651010-11 3: GOSUB4510:O-127:GDSUB4510: 0-151 : GGSUB451 0:0-235 JG0SUB651 B 

6600 X-191 1GOSUB4510: 0=131 :GOSUB6510:D-135iGOSUB4510tD-135:GOSUB4310iO-191 i GOSUB 

651 0:0-1 271 GOSUB65t0;O-135iGOSUB451 0:0-151 : G0SUB451 0: RETURN 

4999 ' 

500B •.■«"»»..»►.....,*»* INSTRUCTION *.m»*****'*"*.*»*» 

5001 ' 

5010 CLS:PRINrSTRING*<63. 136) JPRINTTRBt3) t"CECI EST Lfi SRGR COGMIOUE 0' UNE PORTE 

E DE ORENOUILLES. * 

5020 PRINrSTRING«l63. 13B) iPRINTTAB(Z) 1 "EN EFFET. L" ETE EXERCRNT SES DURS RAVAGES 

. LR MARE ":PHINTTABU):"OU S'EBATTArENT MOS 6 GRENOUILLES S' EST BRUSOUEMENT ASS 

ECHEE. "!PR[NTTAB(3> t"LES CONTRAIGNANT A PRRTIR VERG DES C1EUX PLUS CLEMENTS ." 

5030 PRINtTRBC2)t" MAIS VOILR DUE. NOUVEOU DRAME. D" IMMOMBRAPLC DRNGERS LES" i PR 

INTTABI 12)1"ATTENDENT ENCORE DANS LEUR PERtPLE FORCE." 

5040 PRINTiPRINTTR8(3) I" ET C'EST ft TOI....OUI C'EST BIEN A TOI QUE JE M' nDRESS 

E":PR1NT"' CMERCHE PAS fl TE DEFILER 1. QUE JE CONFIG LA TERRIBLE MISSION" :PR1NTT 

AB(12)I"DE LES OUIDER fi TRAVERS CE MONDE HOSTILE." 

5030 PRINT I PRINT" COMMANDE i"iCHR»19l ) 1CHRH92) tCHR*< 931 iCHR*(94)1" DEPLACEKE 

NT":PRINr" CLEAR RBANDON " 

3060 IFIN«E¥»<) ""THENCLSIOOTO100ELSEOOTO506B 

3070 ' ..-**.**»».***»•■** OUF' C'EST FINI IH l lll i miM I O I W 




POKER 



Imitation des machines a sous de LAS VEGAS, le pro- 
gramme vous propose une mise initiale de 1 a 10 R avant 
de jouer (si votre credit est egal a <D il suffira de remettre 10 
F dans I'APPLE, touche "C"). L'ordinateur vous distribue 
5cartes. apres avoir appuye sur la touche D, avec la possi- 
bility de changer les carles indesirables (touches 1 a 5). Si 
vous vous etes trompe dans le choix de vos cartes, la tou- 
che 'A' annule celui-ci autant de fois qu'il est necessaire. 
La validation de la main se fait avec la touche 'RETURN' et 
le gain s'affiche immediatement. La touche 'ESC termine 
lejeu. 

Lecodebinaire utilise pourlegraphisme des 52 cartes est 
charge en memoire de $8770 a 95 F Les lignes 20 et 21 
servent a la protection des deux modes utilises 

Pascal DUPUY 



HIHEH: 34674 
LOMEM: 163B4 
DIM CI <13),C(S> .TC(5),TE<5).F 

C<52> 
n - HCR - 0:SJ - O 
HOME : SPEED- lOO 
VTAB <IO): HTAB IIO): INVERSE 

I PRINT "APPLE-VEGAS-RDKER": 
NORMAL 
SPEED- 253: PRINT CHR« <4>"8 

LOAD fiCARDS" 
VTAB (2!): PRINT "DESIREi-VOU 

S LES INSTRUCTIONS <0,N> ? - 

: : GET A* 
IF A» < > "O" THEN GOTO 300 



PRINT ■ PRINT " 2 Pi ire* . 

3*r1i«»" 

PRINT ' Brelan 

PRINT - Suite 

12xMi SB- 
PRINT " Fool 

. 30*111 se" 

PRINT " Couleur 

SOKflise" 

PRINT " Carre 

. lOOxMise" 

PRINT " Suite Royale 

FOR I - I TO 30O: NEXT I 



PRIf 



II 



HINT i PRINT 





yez en iortjnt 


) ■ I PR I N 


210 


PRINT " rl pour 


aug-wnte 


220 


PRINT : PRINT 


D la ha 




PRINT : PRINT : PRINT ". 


.Bo 


nne Chance !...-| SPEED- 


253 


FDR I - ] TO 6000: NEXT 


[ 


REM »* CORPS PROGRAMME 




HOME I HGR 




FOR I ■ 110 5 




- 0:V - 40: SU - 




POKE 38360, X * (I - 1) • 


461 


POKE 38361,0 




POKE 3S370.Y: POKE 3B39C 


SU 


CALL 34675 




NEXT I 




VTAB (21): PRINT "Credit 




VTAB <2l>: HTAB (9): INVERSE 


: PRINT "00" 




NORMAL : PRINT "Gain :" 


TAB 



IFflt ( > "C" THEN 395 

CR ■= 10:SJ = lOi VTAB (2i: 

(9): INVERSE : PRINT "10' 

HGR 

VTAB (221: HTAB (91: PRI1 

O ": VTAB 11) : GET A* 

IF A* = "fi" THEN H - M * 



l " "C" THEN I 



lOl VTAB (21 > 



: PRINT ■ '■ 

IF A« - CHR» (27) THEN TEXT 
: HOME : VTAB (IS): PRINT "V 
DUS AVE7. JDUE "ISJI" Fr«": PRINT 
"VOUS AVEZ GAGNE " t CR - SJ ; " 
Fr»"I PRINT : PRINT : PRINT 
a bientot . . . " i END 



M THEN 



I 420 
420 



(9) ! INVERSE : 

: PRINT " " 

GOSUB 50^> GOSUB 10O0 

VTAB 122): HTAB <9> : PRINT Q 

At" "iCR - CR * GA: VTAB (21 

): HTAB (9>: INVERSE : PRINT 

CRl : NORMAL i PRINT ■ " 

FOR I - 1 TO 1000: NEXT I: GOTO 



soo 


REM •• 


DONNE •• 


310 


FOR I - 


1 TO 5:TC(II - OiTEf 




I) - 0: 


NEXT I 


320 


FOR I - 


1 TO 52:FC(I) - Ol M 


330 


FOR I - 


I TO 3 


540 


K - INT 


< RND Ml • 32) • 1 


330 


IF FCOC 


- 1 GOTO 540 


360 


cti) - x 


FCtX) - 1 


570 


NEXT I 




SBO 


FOR I - 


I TO 5 


390 


X » INT 


t RND (1) • 52» * 1 


60O 


IF FC(X 


- I GOTO 390 


610 


TC(J) - 

NEXT I 


:FC<X) » I 


630 


FOR I - 


1 TO 3 


640 




I - ] I • 46 




POKE 38360. X: POKE 36361,0: 1 




3B370.V 






SU • IN 


< (C<I) -11/13)* 




1:RA - C(I) - 13 • (SU - 1> 


670 


POKE 3B390.SU: POKE 3B3B0.RA 




> CALL : 


4673 


680 


NEXT I 




690 


VTAB (1 




700 


IF At . 


CHR» 113) GOTO 90O 


710 


IF A* = 

770 


" I " THEN I - I t SOTO 


720 


IF A« - 


•■2" THEN I - 2: SOTO 


/SO 


IFflt ■ 
770 


"3" THEN I - 3i GOTO 


740 


IF A» - 
770 


"4" THEN I - 4: GOTO 


7SO 


IF A« =• 
770 


"3" THEN I - 5: GOTO 


733 


IF A» - 


"A" THEN FOR I - 1 




StTE(I) 


- O: NEXT : GOTO 630 



= 1 THEN 690 



BOO POKE 3B360. 

38370, V 
910 SU - O: POKE 39390, SU: 

4673 
020 GOTO 690 

900 FOR I - 1 TO 1O00: NE; 
910 FOR I - 1 TO 5 
920 IF TE(I) * O THEN 
930 X - O * (1 - 11 • ■ 
940 POKE 38360, 

38370, V 
950 SU ■* INT ( 



POKE 3B361.0: POKE 
CALL 3 



GOTO 980 
• 46 

POKE 3B361.0: POKE 



960 RA = TC<I) - 13 • (SU - 1) 
965 POKE 3B390.5U: POKE 3B3B0.RA 

1 CALL 34675 
970 C(I) - TC(I) 
9B0 NEXT I: RETURN 
000 REM *» CALCUL DES GAINS •• 

010 SU - liCO - liMX - OiMI - 33 



THEN CO - 0: GOTO 10 



140 ] 



FOR I - 1 TO 3 
160 X - CI!) - INT (CCC1) - 

13) • 13:C1 (X) - CI (X) * 
170 NEXT I 
1B0 FOR I - 1 TO 13 
190 IF CI (I) - 4 THEN DA - I 

Mt RETURN 
200 IF CI (I) - 3 THEN BR - I 
210 IF CKI) - 2 THEN PA - 1 



213 



IF CI (I) 



THEN S ■ 



IF BR - 1 AND PA - I THEH B 
I ■ 30 • Ml RETURN 
IF BR - 1 THEN GA - 7 • Mi t 
IF PA - 2 THEN SA • 3 • It) I 
IF S - 3 AND SU - 1 AND CD ■ 
THEN GA - 600 • Mi RETURN 



1270 






5 AND SU - I 
M: RETURN 
1 THEN GA • 
RETURN 
1290 GA - Or RETURN 



&&* 



DESSINS DES CARTES 



SCALL-151 



8930- SB 20 7B 88 t 
B95B- A9 84 BD A6 i 
B960- A7 8A 20 2A t 



•H770.96OO 



BA IB 6D I 



B790- 
8798- 
87A0- 
B7AB- 
87B0- 
B7BB- 
87C0- 
B7CB- 
87D0- 



B7EB- 
87F0- 
87F8- 



1 20 01 
: AE F6 
) CA FO 
■ 49 60 



12 BB AE 
A3 BD CA 
CA DO 03 
03 4C E3 
3E 89 CA 



: 4C B7 

i BA CA 

i DO 03 

; 4C 7E 



B86B- 4C B2 B7 

8870- 8D A6 BA 

BB7B- 20 2A BB 

8880- 7A B7 A9 



8890- 60 : 
SB9a- BA A9 ' 



I 93 AA A9 00 

08 68 20 tl F4 

95 B3 1C AD F8 

F6 60 3A 93 33 

93 FO OD CA FO 

21 CA FO 33 CA 

4C E6 BA A9 EC 

A9 94 BD 9E 87 

9F 87 A9 8C 8D 

12 BS A9 06 80 

95 8D 9E 87 A9 

87 A9 BC BD AO 

68 A9 20 8D 9D 

BD 9E B7 A9 23 

A9 8C 8D AO B7 

A9 3A BD 90 B7 

9E 87 A9 33 BD 

8C 8D AO 87 4C 

EC 93 DO 03 4C 

DO 03 4C 91 88 

4C CC 88 CA DO 

SB CA DO 03 4C 

DO 03 4C 35 B9 

4C BE 89 CA DO 

89 CA DO 03 4C 

DO 03 4C 3E 8A 

4C 6A 8A CA DO 

BA CA DO 03 4C 

DO 03 4C 6B BB 

20 D8 BA A9 BC 

A9 95 BD A7 BA 

A2 10 AO 10 20 

OO BD F8 93 AE 

9E 87 : 



8970- 00 BD FB 93 

B97B- 9E 87 20 91 

8960- 10 20 7A B; 

89BB- 9E 87 20 91 

B990- 8A A9 9E 8D 



SB BO- AC 



A2 10 
00 8D 
9E B7 



:B- 20 91 87 60 20 1 
'0- 36 8D A6 BA A9 ' 



I 20 2A 

88 60 
) A6 BA 

BBFO- 20 20 SB 
BBFB- 7A 87 A9 
B90O- 9D 87 AC 
6908- A2 18 AO 
B910- 9D B7 AC 
8918- A3 OE AO 
B920- 20 80 F8 
B92B- 9E B7 20 
8930- 24 20 7A 
B93B- 9E B7 20 
6940- 8A A9 6A 
894B- BD A7 BO 



20 1 



1 30 



A9 94 8D A7 8A 
A2 08 AO 03 20 
00 8D FB 93 AE 
9E 87 20 91 87 
03 20 7A 87 AE 
9E 87 20 91 87 
24 20 7A 87 A9 
93 AE 9D 87 AC 
91 B7 A2 IE AO 
87 AE 9D B7 AC 
91 87 60 20 D8 
8D A6 8A A9 94 
20 2A 8B 20 F3 



10 20 7A 87 i 



AE 9D 67 ( 
87 60 20 ] 



89 AO- 89 

89AB- A9 OO BD F8 

8960- AC 9E 87 20 



i 20 2A 8B 20 65 



B9D8- 
89E0- 
89E8- 
S9F0- 



1 AC 9E 
I AO OC 
' AC 9E 



93 AE 9D 87 

91 87 60 20 

BB 80 A6 BA A9 

BA 20 2A 88 20 

08 AO OC 20 7A 

BD FB 95 AE 9D 

87 20 91 87 A2 

87 AE 9D 



' TO 1 



' A2 



B010- B7 20 91 

8A1B- A9 D2 BD 

8 A 20- A7 8 A 20 

8A28- A2 10 AO 



BA40- 
BA4B- 
BA50- 
BA5B- 
8A60- 
BA6B- 
BA70- 

BABO- 



B7 A2 IE AO IB 

AE 90 B7 AC 9E 
B7 60 70 DB BA 
A6 BO A9 94 8D 
2A BB 20 C7 89 
07 20 7A 87 A9 
95 AE 9D 87 AC 
'I 87 i 



' 34 BD A6 8A t 



> A7 BA 20 2A I 



i AO I 



* 87 A9 20 BD FB 93 

I B7 AC 9E 87 20 91 

> 20 F7 BA 09 6E BD 

i A9 93 BD A7 BA 20 

I 20 78 BB 60 20 08 

' SB BD A6 BA A9 95 

' BA 20 2A 8B 20 78 



BA9B- A6 BA I 



8D A7 BA 20 2A 

AO 03 20 7A 87 

F8 93 AE 90 87 

20 91 87 A2 16 



I A6 BAAO- 2A £ 



' FF BD 

i 20 7A 

■ AE A6 

87 A2 

' 20 



6AE0- 

BAEB- 
8AF0- 
BAFB- 



BB30- 
BB3B- 
BB40- 



) AC A7 I 
? DA BD I 
? BA 20 * 
* A9 61 ( 
) A7 8A : 



7B 8B 60 34 95 
F7 93 A2 OO AO 
87 A9 00 8D F8 
BA AC A7 8A 20 
26 AO 27 20 7A 
8D F8 95 AE A6 



20 * 



B7 i 



, BA A9 90 BD 
1 6A 60 20 A3 
BD A6 8A A9 92 
20 AB BA 60 20 
( 88 A9 53 BD A6 6A A9 
' 8D A7 8A 20 AB 8A 60 
) A3 8B A9 CC 8D A6 BA 
I BD 80 A7 BA 20 AS 8A 
I 20 A3 BB A9 45 80 A6 
i A? BC 80 A7 8A 20 AS 
i 60 A2 00 AO 03 20 7A 
A9 00 BD F7 95 8D F8 
> AE A6 8A AC A7 8A 20 



Suite page 9 



ALPHA HP * 



MATERIEL ; HP 41 C + 1 Module ou HP 41CV 
ConnaTssez-vous I'alphabet a I'endroit et a I'envers ? 
Ce programme vous propose de faire le point. II vous 
demandera par exemple la T lettre suivant G ou la 3 e let- 
tre precedent S... et vous n'aurez que 1 a 2 secondes pour 
repondre. 

L'ordre alphabetique des touches du clavier de la HP 41 
facilite les choses mais le temps de reflexion est vraiment 
tres court. 

Thierry JORISSENS 

Mode d'emploi : 

1) se mettre en SIZE 033 et en mode USER 

2) lancer le programme en appuyant sur COS (LBL I, comme initiali- 
sation) 

3) le cas echeant repondre par un nombre inferieur a 1 suivi de R/S a 
raffichage "x<1 T 

4) A la question "NIVEAU ? 1-3" on repond par 1, 2. ou 3. mais 1 semble 
le bon cnoix pourcommencer... (On peut monter beaucoup plus haut 
si Ton a pas peur de voir la suite "POINT : 0%" I...) 

5) HP 41 demande ensuite "APRES : A, AVANT : a" si on appuie sur A 
(— y+) ondevratrouverlalettresuivantcelleafficheesionappuiesura 
(— v-) on devra trouver la lettre precedent celle affichee. 

6) la premiere des 10 questions s'atfiche on a moins de 2 secondes 
pour enfoncer la bonne touche et celle-la uniquement... 

7) bonne chance I 



28:14 16.12 
8HLBL -ALPHfl- 
82«LBL a 

83 SF 81 

84 STO 27 

85 CHS 

86 610 88 
87«L8L A 

88 STO 32 

89 CHS 

18 STO 27 
II •LBL 88 

12 26 

13 * 

14 STO 26 
15«LBL 83 

16 XEO 18 

17 FC? 81 

18 ACL 32 

19 FC? 81 
28 * 

21 RCL INI X 

22 STO 31 

23 RUN 



24 RCL 27 

25 * 

26 RCL 27 

27 BBS 

28 CLB 

29 ARCL X 
38 FS? 81 

31 "F AVANT • 

32 FC? 81 

33 -F APRES " 

34 ARCL INt V 

35 "F ?" 

36 CF 23 

37 AON 

38 BVIEM 

39 FS? 81 
48 PSE 

41 PSE 

42 FS' 23 

43 CTO 81 
44«L8L 82 

45 "HON, : " 

46 ARCL 31 

47 AVIEN 

48 PSE 
49»LBL 86 



58 DSE 29 

51 GTO 83 

52 "POINTS 

53 ARCL 28 

54 -YX- 

55 PROMPT 

56 CTO I 
57tLBL 81 

58 ASTO X 

59 RCL 31 

68 X«Y? 
6! CTO 82 

62 18 

63 STt 28 

64 -OUI- 

65 AVTEH 

66 PSE 

67 CTO 86 
68<LBL I 

69 "A- 

78 ASTO 88 

71 -V 

72 ASTO 81 

73 -C- 

74 ASTO 82 

75 -D- 



76 ASTO 83 

77 -E- 

78 ASTO 84 

79 f 

88 ASTO 85 

81 -C- 

82 ASTO 86 

83 -H- 

84 ASTO 87 

85 -I- 

86 ASTO 88 

87 "J" 

88 ASTO 89 

89 -K" 

98 ASTO 18 

91 f 

92 ASTO 11 

93 •«• 

94 ASTO 12 

95 -N- 

96 ASTO 13 

97 -0- 

98 ASTO 14 

99 -P- 

188 ASTO 15 
181 "6- 



182 ASTO 16 

183 -R- 

184 ASTO 17 

185 -S- 

186 ASTO 18 

187 ■!• 

188 ASTO 19 

189 ■li- 
ne ASTO 28 

111 -v 

112 ASTO 21 

113 •«■ 

114 ASTO 22 

115 -X- 

116 ASTO 23 

117 -V 

118 ASTO 24 

119 -V 

128 ASTO 25 

121 8 

122 STO 28 

123 18 

124 STO 29 

125 CF 81 

126 AOFF 

127 -X(P" 



128 RCL 38 

129 FRC 
138 X=8' 

131 PROHPT 

132 STO 38 
133«LBL 84 

134 -NIVEAU? 1-3" 

135 TONE 8 

136 PROHPT 

137 "APRES:A,AVANT:a- 

138 TONE 9 

139 PROHPT 
148 GTO 84 
14KLBL 18 

142 RCL 38 

143 9821 

144 • 

145 .211327 

146 * 

147 FRC 

148 STO 38 

149 RCL 26 
156 • 

151 INT 

152 FIX 8 

153 .END. ■ 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 X 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM : 

PRENOM : 

ADRESSE: 

REGLEMENT JOINT: □ CHEQUE DCCP 



MATERIEL UTILISE : 
CONSOLE; . . 
PERIPHERIOUES : 



RAPT VAMPIR 



IH-JM.l: GOSUB 700 



Un ignoble vampire a enleve votre fiancee et I'a emportee 
dans son chateau. 

Pour la iiberer i! vous faut atteindre par trois fois le manoir 
diabolique ou est enfermee la belle mais celui-ci n'est ac- 
cessible qu'apres I'ascension de dix etages relies entre 
eux par neuf echelles. 

La difficulte provient des tonneaux qui roulent entre les 
etages et des fleches qui cherchent a abattre le heros. 

F LAG RAN A 

Mode d'emploi : 

Le joueur se deplace en se servant des quatre touches de I'editeur 

d'ecran : 

Touches Fonctions 

>■ Oroite 

•* Gauche 

A Monter ou sauter 

T Descendre 

Le joueur peut monter s'il se trouve a 1'emplacement d'une echelle. s\- 

non le fait d'appuyer sur A le place en position de SAUT 

Les sau t s servent a eviter les tonneaux. Par contre. les fleches peuvent 

etre evrtees en se deplacant. De plus, elles effacent les echelles et le 

bonus, signale par le signe @ 

Si le joueur parvient au sommet des dix etages, II decouvre le chateau. 

A la troisieme fois, la princesse apparaitra 

Bonne chance a tous, 

Remarque : Le programme comporte deux parties : 

- La premiere est une presentation et permet d'initialiser les caracte- 
res graphiques 

- La seconde correspond au jeu. 
II est done necessaire de lancer la premiere avant la seconde. 
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I 31 I--7O.40, 16,124. 14,36,36,252 








/?/ 


*o font.. 








.391- -188, 188, 148,232, 180,232,2 










40 FONT.l 
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' G05UB60Q:«ETUPN 

i -oesCENonE 

*•-•■■. IFJM-El JV-l >«NDL! >3THEN41( 
( l-OC*TEJM,L!GOSUB700:fieTU«N 
) FOOI - 143T0 I 40STEP-1: LOCATE 'H.L'; 

• IFIM0D2-0THENF0KT-IT010:NEKTT,II 



(D-LTHENIF: 



631 












■REPLACE JOUEUR 


710 


1FJH-EIJY1THENPRINT- 


720 


RETURN 




■REPLBCE ECHELLE 


760 


LOCATE IM,L: IFJM-EIJU1THENPRINT--IE 


770 


RETURN 
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F0R1 -OT01 : LOCATE JH. 1 :PR1 NT ••-: NEXT 


820 


1FL-1THENCH0C-IELSEFLECHE-1:PF-JH 



000 ' BONUS 



930 LOCATEBH.BVlFeiNT- 


940 


FN' .-20tHSN960 


930 N-20:»0-0:LOCAtE»M,SV; ltW—l-3-IJ.H 




t.BSInr--ltL51PUI>r:- -j 
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ONfA.l J O200SUB3OO, 200,400,290 








pk,i:next:s-s-ioo:n>-iv 




G0SUB37OT IFCHOC- 1 TMEN630ELSES-S- 1 : L 
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G0SUB90Q 




TI-Tl-l: LOCATES, O.'PRINTT t i JFFLECHE* 








rFTIMODTl CD-OTHENGOSUSSOO 




IFCHOC- 1THEN630 


107S 


1FL-0THENP-P»t; 1FP-3TKEN110OEL&ECLS 


1100 


CLSILINEIO.JU -I 119,31 h:LINE(»3,3U 


-19* 


2) 1LINE- 192,2) :LINE-(92,3) 


lllO 


LINE- 189,31 :LINE- 189.21: LINE- 186,21 



JCCES-SUCCES" 1 :0NSUCCES00S'JB13O0, 1 
: NE( 0,241 -(30, 241: L0CATE2, 3! PRINT- 
1BT-1T02: FOBK-40T043: BEEPK, 1 : NEXTK 

II-14OTO143:LOCATE2,2«INO02:PRINTC 



IFSUCCES-3THENK 



Fopr- i r02O0:NEX 



UNEXTILOCATEl 



2023 IFA9C 



293 BEEP64 



FRANI 



Et pourquoi pas un programme d'EA.O. "beternent" sco- 
laire ? 

Ceiui que je vous envoie concerne le calcul de la fraction 
d'un nombreetfonctionnesurZX8116K. II est plus parti- 
culierement reserve a des enseignants, mais peut etre uti- 
lise avec profit a la maison pour peu que le papa (ou la ma- 
man) veuille bien le recopier ! 



Michel PERRAUT 



Mode d'emploi : 

Ce programme offre : 

1°) une animation simple permettant de faire comprendre aux enfants 
comment fonctionne le calcul de la fraction d'un nombre. (Les nom- 
bres et les fractions sont choisis de facon a ce que les resultats soient 
toutjours des nombres entiers). 

2°) Controle individuel pour chacun des eleves (30 maximum). 
10 calculs sont proposes. 

- En cas de reponse juste, I'enfant voit apparaltre le bon resultat qui 
conftrme sa reponse et son score sous la forme d'un tableau. 

- En casd'erreur, I'animation du I/ appliqueea son cas, lui est proposee 
pour qu'il comprenne son erreur. 

3°) La totalite des scores obtenus paries enfants. On atteint ces resul- 
tats en faisant GOTO 9800 ou en appuyant sur R (R pour resultat) lors- 
qu'un enfant a termine et qu'apparait Instruction "appuie sur C" 
4°) La possibility d'enregistrer en FAST LOAD si, bien sur on possede 
cet utilitaire. 
Pourcela, faire GOTO 9990. 



40 DIM A (30) 

5e DIM Et (38, 10) 

60 LET EL-0 

100 GOTO 2000 

105 PAINT RT 0,10, 

106 PRINT "******* 



107 PRINT hT B, ' 

lJ,UlDjf I 

109 PPINT " 
M« B9 fie*' 

Tl8 PRINT " 



■2 »3 ■* MS We. WT7 





LET J, 


«.J*3-2 










PPINT 


RT 


9,N»3- 
10,N*3 


lift 


PPINT 




















PRINT 


li | 


6,KK, " 






«l 








m 








RT 


3.KK-1 
12, JJ, 






RT 






AT 
















AT 




1 1-. 


PPINT 


m 


i 7 A^- 



PPINT RT 0,20, J; 

RCTI IPII 
REM 



■■DP.IP 

i 



REM SOtJS-PROGRRMMCS OIUERS 



PPINT RT 1C, 



"flppuie sun 



1SB PPINT TRB 20, " 

1O0 PRINT TRB 20, - ' 

16B IF XHKRY*-"C f - THEN RETURN 



170 GOTO 



166 



ISO PPINT RT O,0,"CCRI 

ttse ct sppuir sur ncu 

leo return 

199 GOTO 2000 

994. PEM ^ "■ ■ 

OQB REM nnnNIMnTIOMi 

■3Qe REM ««^ . 




1001 LET DE^INT (RND*7) +3 

1010 LET X=DE*tINT IRND*7)+4.) 

1020 LET NU-INT (RND*S) +1 

1030 IF NUJ=DE THEN GOTO 1020 

10S0 PRINT RT 19,6; ,, Wf^^^^^^ 



131S PRINT RT N, 



; CHR$ (CODE (&T 



10O1 PRINT RT 21,8, "M— 
mSTgRXflT PT 20,B;"i 
1090 PRINT RT 20,10;NU; 



DE 



■; DE; " 



1100 LET Pfift.X/UE 

UBS RETURN 

1110 FOR N=l TO 2*DE STEP 2 

1120 FOR M=l TO 24PRR STEP 2 

1130 PRINT RT N,Mtl; ■■■" 

114.0 NEXT M 

11B0 NEXT N 

11O0 PRINT RT 0,22; "JE PRRTRGC"; 

RT 3, 22; "EN "; DE; " PORTS' - 

Ilea PRINT RT 4., 34-; "*i-*»frt" 

114S LET COD- (CODE (9TR$ DE)+12ft 

) 

1190 FOR N«l TO B 

1196 PRINT RT 20,12;CHR* COD 

1196 PRINT RT a,2B;CHR* COD 

1197 PRINT RT 20,12;DE 

1198 PRINT RT 2,25; DE 
IB 00 NeXT N 

1210 FOR N«l TO 2»(DE-1> STEP 2 

1230 FOR M-l TO 2*PRR-1 

12C0 PRINT RT N*-1,MH;" = " 

1240 NEXT M 

12S0 NEXT N 

1S60 FOR N-l TO DE 

1266 PPINT RT N*2-1,0,N 

1270 NEXT N 

12ft0 PPINT RT 6,22; "JE PREND5"; R 



„. /2) ) +128i 

1320 FOR M-l TO 2-iPRR STEP 2 

133C PRINT RT N,M+l;"»" 

134.0 NEXT M 

1350 NEXT N 

1379 PRINT RT 1.C23; "■■■' 

1360 PRINT RT 19,S3;"^M" 

1381 PRINT RT 28,2:.; '■■■■■' 

13B2 PRINT RT 21,23; "■■■■" 

14-00 PRINT RT 20,22; "a"; RT 20,24- 

; NUtPRR 

14-10 GOSUB 1S2 

1B00 RETU RN 

1994. REM ^™"*^-^^^™^"^^— 

199B REM t*TRRURIL ELEUE»# 

1996 PEM v^ 

seae print W f e,B, " W^^^^m*, ■■■■■ 



2001 PRINT TRB B, " t ^FRACTION -ANI 
MRTION4*" 

2002 PRINT TAB B; " ^^^^m^^^^^^^m 

2003 PRINT , , , , "a TRAUAIL INDIVI 
OUEL DES ELEVES 1 ' _ 

2COB PRINT ,,,,,, "H ANIMATION PO 
UR EXPLICATION COLLECT IUE . " 
2010 IF INKEYi='E- THEN GOTO 230 



2016 IF IHKCYio 



THEN GOTO 210 



N-l TO 6 



.. I n ; r.HR* COD 



1303 PRINT RT 8,22; NU 

130B NEXT N 

1318 FOR M>1 TO 2(NU &TEP 



2017 IF CODE INKEYtoSa RND CODE 
lWKF£YtiiH2 TMEN GOTO 2010 

sese goto 2fii« 

2 100 GOSUB 3 OO0 

&1 IP O08UB 1 110 

2150 IF INKEV*- M C" TMEN GOTO 210 



2160 GOTO 216fl 

2300 CLS 

2302 PRINT THE 5, "tiLES FRACTION 

6 ' •" 

33 1 « PO TNT , , , , "TU UR3 COLCULER, 

PRR EXEMPl.Er ' , , , "LES 3^4- DE affl/' 

3320 PRINT , , 'Lfi REPONSE EST 18. 

8940 GOSUD IBS 

234-B LET J a(* 

2350 FOR I< = 1 TO 10 



Z%* 



24 10 INPUT R 

2420 IF R-NUftPAR THE N G OTO 2600 

24-30 PRINT RT 20,0, "BEffl" 

243S PRINT RT 9,0; " 



2440 LET POUSE-SOR 1U 

2450 PRINT RT 20,0," 

2460 GOSUB 1110 

3470 GOSUB 152 

2590 NEXT K 

2899 GOTO 9S00 

2610 LET J«Jtl 

2630 PRINT RT 16,23; "| 

2635 PRINT RT 19,33; "1 

3637 PRINT RT 20,33; "1 

2640 PRINT RT 21,23; "| 

3648 PRINT RT 20,32, "= 
NU*PRR 



TO 



, MLI IKW 

2650 GOSUB 108 

2660 FOR "" " 

2665 NEXT 

2999 NEXT 

3100 GOTO 9500 

9494 REM ^ »™..™^™«— ^~ 

9498 REM *•>>»»< *FIN >»(*•*» • 

9496 REM ^^_^ MMH .^^-^^^_ 

9500 CLS 

9808 PRINT TRB 8; "SCORE FINAL:" 

9510 PRINT , , J, " SUR ",K-1 

951B PRINT RT 10,0j"ECRIS TON NO 

M ET NEU LINE." 

9817 LET CL-CLtl 

9520 INPUT E»(EL) 

9525 LET RIEL) »J 

9527 IF BICD.B THEN LET RIEL) -9 

B,0; "RU REVOIR 

~PfH}*E !>»8 
9540 CLS 

954B PRINT RT 20, t 
ER.RPPUIC SUR c." 
9660 IF INKEY*- 1, C' 

9888 IF INKEYt-^'R" THEN GOTO 9BO 



, "POUR COMMENC 
TMEN OOTO 230 



RESULTATS ELEUES » 



07 OB 

979B REH . 

'■'Hln CLS 

9610 FOR N-l TO 30 

9B1B IF RtNl-0 TMEN GOTO 990O 

9B17 LET R=R (N) 

9820 IF RIN1-99 THEN LET R-0 

9630 IF Ntl6 TMEN PRINT E»(N> <1 
TO 8) ; " "; R 

9640 IF N>-16 THCN PRINT AT N-16 
.1S,E*IN>(1 TO S) ; " ";R 

9880 NEXT N . 

9B9P REM ' ' ' ' ^^^^^^^ 

9891 REM SOUUECARDE EfJ FAST LORD 

9B92 REH ^-hb—hm^bmk^^^^m 

9O«0 corn ORB 

9990 RAND U3R 30460 

9991 REM S91FRONI _ 

9992 GOTO 1 ■ 



DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus! 
Rien de bien original dans cetie 
formule, pourtant nous es- 
sayons de (aire quelque chose 
de different : nous organisons 
un concours permanent tous 
tes mois et tous les trimestres ! 
Et avec des prix dignes des pro- 
grammes que vous altez nous 
envoyer ! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preleres sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitraire, HEBDOG1CIEL n'fnter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAUX et FRANCAIS. Si 
voire programme n'est pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
I'ameliorer pour pou voir nous le 
proposer a nouveau. 



Pour participer, il vous sutlit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que tou tes les ex- 
plications necessaires a I'utili- 
saiion de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance ! 

Reglement : 

ART. 1 ; HEBDOGIC1EL organise 
de facon mensuelle et trimes- 
Irielle un concours dote de prix 
recompensanl le meilleur logi- 
ciel du mois el du trimestre 
ART. 2 . Ce concours est ouvert a 
tout auteur de logiciel quelque 
soil le materiel sur lequel il est 
realise. L'envoi d'un logiciel en 
K 7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGIC1EL ou 
envoye gratuitement sur de- 



mande par la redaction de notre 
journal constitue I'acte de can- 
didature 

ART. 3 : La redaction d'HEBDO- 
GICIEL se reserve le droit de 
seleclionner sur la base de !a 
qualite et de Toriginalite les logi- 
ciels qui sont publies dans le 
journal 

ART. 4 : Ce sont les lecteurs qui. 
par leur vote, determinent les 
meilleurs logiciels mensuel et 
trimestriel. 

ART. 5: Le prix alloue pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel. 
ART. 6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel. 
ART. 7; Le present reglement a 
ete depose chez Maitre Jauna- 
tre. 1 . rue des Hailes 75001 Paris. 
ART 8 : HE8DOGICIEL se reser- 



ve le droit d'interrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
a van I 

ART. 9 La participation au con- 
cours entraine Tacceptation par 
les concurrents du present re- 
glement. 

HEBDOGIC1EL: 27. rue du Gal 

FOY - 75008 PARIS 



Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
tort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un m eme 
ordin at eur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Nom : 

Prenom : 

Age : Profession : 

Adresse : 

N° telephone : 

Nom du programme : 

Nom du materiel utilise : 

declare etre I'auteur de ce programme qui n'est ni une imitation ni une 
copie d'un programme existant. Ce programme reste ma propriete et 
j'autorise HEBDOG1C1EL a le publier. La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n'occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obligatoire : 

{signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne d'un descri p tif delaille du materiel utilise, 
d'une notice d'utilisation du prog ramme . Les supports des program- 
mes publies sont conserves , noubliez done pas d'en faire une copie. 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLIER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'emploi, listings et bon de parti- 
cipation dans une meme enve- 
loppe. 

Vous pouvez nous envoyer plu- 
sieurs programmes sur un meme 
support en Ttndiquant sur votre 
Bon de Participation, 

• N'oubliez pas et ceci est tres 
important, d'inscrire sur vos sup- 
ports votre nom, le nom du pro- 
gramme et le materiel utilise. 
Notez dans les premieres lignes 
de votre programme, sous forme 
de REM, votre nom, le nom du pro- 
gramme etle materiel auquelil est 



destine. Nous pourrons ainsi re- 
perer facilement les listings, une 
fois sortis de I'imprimante. 

• Dupliquez plusieurs fois sur la 
cassette et a des niveaux d'enre- 
gistrement ditterents votre pro- 
gramme. Nous aurons plus de 
chance d'arriver a le charger si les 
magnetophones ne sont pas tout 
a fait compatibles. 

• En ce qui concerne les bons de 
participation, mettez votre adres- 
se com p lete et votre numero de 
telephone (si vous en avez un). 

• Pour tout envoi tel que "petites 
annonces", "abonnement" et 
"programmes" specifiez sur vos 
enveloppes I'objet de votre cour- 



Ne nous envoyez plus d'envelop- 
pes timbrees, mettez simplement 
les timbres joints a votre envoi. 

• Expliquez les particulates de 
votre ordinateur et le moyen 
d'adapter votre programme a 
d'autres ordinateurs. 

• Vu le nombre important de pro- 
grammes stmilaires que nous re- 
cevons. evitez de nous envoyez 
les jeux suivants : BIORYTHMES, 
MASTERMIND. PENDU. TOUR DE 
HANOI. CALENDRIER, BATAILLE 
NAVALE, POKER, JACKPOT. 
BOWLING, BLACK JACK. LABY- 
RINTHE, MEMORY. SIMON. 421, 
OTHELLO, SOLITAIRE, LOTO. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSt, SHIFT, SYBEX). 



DDI OFFRE CINQ CASSETTES 
DATA OR VIERGES AU MEIL- 
LEUR PROGRAMME DE CHA- 
QUE CATEGORIE. 



Le Club PPC-T offre au meilleur 
logiciel en langage FORTH sur 
HEILETT- PACKARD une adhe- 
sion gratuite a son club. 



Les editions du CAGIRE offrent 
au meilleur logiciel du mois sur 

HP 41, leur li vrev'au tour de la boli- 
de" de Janick TAILLANDIER. 



SOUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 



DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOIRE, INTERFA- 
CED RS . 232 . C. 



LOGI'STICK OFFRE UNE GAM- 
ME COMPLETE DE SES CAS- 
SETTES DE JEUX POUR LE 
MEILLEUR LOGICIEL DU MOIS 
FX 702 P ET POUR LE MEILLEUR 
LOGICIEL PC 1500. 
IL OFFRE EGALEMENT UN 
"CALC" ET UN "GRAPHE" POUR 
LE MEILLEUR PROGRAMME 
CANON. 



CONCOURS "GEORGES LECLERE" 



Le programme de Georges LE- 
CLERE dans sa conception ac- 
tuelle, contient cinq parties diffe- 
rentes, qui sont toutes axees sur 
la manipulation de lettres de I'al- 
phabet par I'intermediaire du cla- 
vier de Tordinateur. 
Les deux premiersjeux sont iden- 
tiques (seul Tadversaire change : 
ordinateur ou autre joueur) et 
constituent une ebauche de Po- 
ker, ou les cartes sont remplacees 
par les lettres de I'alphabet. Cha- 
que joueur, a tour de role, appuie 
sur une lettre qui agira comme le 
levier d'un JACK POT : la touche 
utilisee genere une lettre sur 
I'ecran qui va se ranger dans le 
camp du joueur. 
C'est done un jeu de hasard, oil 



I'objectif (non defini dans le pro- 
gramme) serait d'obtenir le plus 
rapidement possible, uneseriede 
5 lettres rangees par ordre alpha- 
betique (c'est un exemple). 
La troisieme partie est une de- 
monstration automatique ou 
"TIC" (le premier joueur) joueses 
lettres dans I'ordre alphabetique 
et "TOC" (ie deuxieme joueur) 
joue d'une facon aJeatoire. 
La quatrieme partie est un jeu 
destine a I'apprentissage de I'al- 
phabet. Dans la version actuelle 
du programme, le jeu est concu 
pour 1 joueur qui joue contre Tor- 
dinateur. Chacun des deux 
joueurs possede un camp consti- 
tu6 d'une ligne contenant les let- 
tres de I'alphabet et d'une ligne 



initialement vierge qui contiendra 
les reponses correctes pour cha- 
que joueur (cf D1). 
Lordinateur commence la partie 
en generant une lettre qui vient se 
placer dans son camp. II fait en- 
suite clignoter une des lettres du 
joueur qui doit alors appuyer sur 
la touche correspondante du cla- 
vier. Si la reponse du joueur est 
correcte. la lettre est rangee dans 
le camp du joueur. Si la reponse 
est incorrecte, la lettre reste a sa 
place et Tordinateur reprend la 
main. 

La cinquieme partie est identique 
a la quatrieme, mais avec utilisa- 
tion des manettes de jeu. 
Le programme de Georges LE- 
CLERE est en fait une ebauche du 



jeu de lettre. 

L'objectifdu concours est dereati- 
ser un programme complet (de- 
monstration automatique. interet 
dujeu, etc..) axe sur les lett reset/ 
ou les caracteres speciaux (!. :, 
etc.). La manipulation du clavier 
etant la base de ce type de jeu. un 
jeu ou un systeme permettant 
I'apprentissage du clavier devra 
etre inclus dans le programme. 
Comme vous pouvez le constater. 
le plus dur reste a faire. 
Remarque ; Le listing est com- 
mente, afin de permettre aux per- 
sonnes possedant un ordinateur 
autre que I'APPLE de I'adapter fa- 
cilement. 



ALPHABET 

ABCDEFGHIJKLMNOPORSTUVWXVZ 
JOUEUR 1 

CAMP 

JOUEUR I *...-■■■ . 

CAMP 

JOUEUR 2 

ALPHABET 

ABCDEFGHIJKl-MNOPDRS T JVWXYZ 
JOUEUR 2 

01 ■ ECRAN OE JEU 

ALPHABET 

ABCDEFGHIJKLMNOPORSTUVWXVZ 
JOUEUR 1 

CAMP 

JOUEUR 1 

CAMP 

...D 

JOUEUR 2 

ALPHABET 

ABC EFGHIJKLHNOPORSTUVWXYZ 
JOUEUR 2 

L'OROINATEUR JOUE (D).EI DEMANDE I <•> 



APCDEFGH JKLMNOPCRS-I 



ALPHABET 
JOUEUR 1 
CAMP 
JOUEUR 1 
CAMP 
JOUEUR 2 



ABC EFGHIJKLHN0P0RSTU' 
JOUEUR 2 

REPONSE CORRECTE DU JOUEUR 1 



REGLEMENT 



Article 1 

HEBDOG1C1EL organise un con- 
cours du 22 Mars au 2 Mai dote de 
prix recompensant le meilleur lo- 
giciel s'inspirant d'une idee de 
Georges LECLERE et dont le nom 
est "POKER- ALPHABET. 
Article 2 

Ce concours est ouvert a tout au- 
teurdelogiciel quelque soil le ma- 
teriel sur lequel il est realise. Len- 
voi d'un logiciel sur K7 ou disquet- 
te accompagne du bonde partici- 
pation "Concours Georges 
LECLERE" decoupe dans I'heb- 
domadaire constitue I'acte de 
candidature. 
Article 3 

La redaction d'HEBDOGICIEL se 
reserve le droit de selectionner 
sur la base de la qualite et de la fi- 
delity au theme propose (POKER 
ALPHABET) les loglciels qui se- 
ront commercialises. 
Article 4 

Un jury compose de specialistes 
de la distribution de produits In* 
formatiques et de pedagogues, 
preside par Georges LECLERE 
det.ermine.ra le meilleur logiciel 



pour chaque ordinateur et, parmi 
ces meilleurs logiciels, un ga- 
gnant toute categorie. 
Article 5 
La cloture du concours seferale2 



Mai 1984 a mirtuit, le cachet de la 
poste faisantfoi. 
Article 6 

Les prix alloues seront remis au 
plus tard 1 mois apres Tannonce 
des resultats. 
Article 7 

Le present reglement a ete depo- 
se chez Maitre JAUNATRE. 1 rue 
des Hailes 75001 PARIS. 
Article 8 

Le prix principal 6tant un contrat 
d'edition engageant HEBDOGI- 
CIEL et SHIFT EDITIONS a com- 
mercialiser les logiciels gagnants. 
les laureats s'engagent de leur 
cote a donner la preference a 
SHIFT EDITIONS pour cette com- 
mercialisation, et ce. pour tout 
pays. 
Article 9 

La participation au concours en- 
traine ('acceptation par les con- 
currents du present reglement. 
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ALPHABET 
JOUEUR I 
CAMP 
JOUEUR I 
CAMP 

joueur r 

ALPHABET 
JOUEUR 2 
REPONSE INCORRECTE IEXiW) DU JOUEUR 1 



APCDCKGHI Jl LHNOF'ORSTUVW!C 



BON DE PARTICIPATION 
CONCOURS Georges LECLERE 



Nom : 
Prenom : 
Age : 

Profession ; 
Adresse : 



Nom propose pour ie programme : 

Declare avoir pris connaissanco du rogloment du concours "Goorgos 

LECLERE" pubiie dans HEBDOGICIEL et en accepte le reglumont. 

Signature obligatoire : 

(signature dos parents pour les mineurs) 

Le programme doit etre expedle sur support magnetique (cassetto ou 
disquette) accompagne d'un modo d'emploi tres dotaillo Los pro- 
grammes non retenus ne sont pas rendus 
Indlquez "concours Georges LECLERE" sur Tenveloppo. 



FIL CONDUCTEUR 



Au fur el a mesure de notre evolu- 
tion dans la programmation. nous 
sommes amenes a rajouter des 
tas d'accessoires a nos micros 
favohs.et nous nous trouvonsde- 
vant des problemes de raccorde- 
ment qui sont Ires souvent reso- 
lus quand on a trouve le bon ca- 
ble, celui qui va enfin pouvoir (aire 
fonctionner la petite imprimante 
pas chere que nous venonsdede- 
nicher. 

La societe RS 80 s'esl depuis 
longtemps specialisee dans ce 
type de cable el sa gamme de 
produit est impressionnante. 
Tous !es cables classiques sonl 
evidemment disponibles, Peritel. 
RCA, cassettes, etc., pour un 
grand nombre d'ordinateurs. 
Mais, et c'est la le but de cet arti- 
cle, ii existe aussi toute une serie 
de cables qui permettent de faire 
des branchements, qui ne sont 
(iheoriquement) pas possibles. 
C'est du moins ce qu'affirme la 
quasi-totalite des vendeurs de 
micro qui ne veulent pas se lancer 
dans des essais de branchemenl 
longs et fastidieux. 
Voila une partie de la gamme 
RS 80 : Boilier PERITEL pour 1, 2 
ou 4 entrees Cable RCA/RCA, PE- 
RITEL/ PERITEL, RCA/ANTENNE. 
Pour APPLE cable V1DEO/PER1- 
TEL, carte parallele/matricielle, 
carte EVE/TAXAN. Pour ALICE, 
moniteur et K7. Pour PC 1500, 
PHC 25, HX 20. T07. TI99 el ORIC, 
cable CENTRONICS. Pour 
MZ 700, Tl 99 Cable Moniteur. 
Pour ORIC PERITEL avec alimen- 
tation separee, magneto K7avec 
son, moniteur VIDEO et TAXAN. El 
la gamme ne cesse d'augmenter. 
Les produits sonl en general fia- 
bles el bien tinis et on les trouve 
dans toutes les "bonnes bouti- 
ques". 



^ 




ORIC 1 / MONITEUR TAXAN 
(EIAJ) 



APPLE 2E CARTE EVE F2ECM01 
/ MONITEUR TAXAN (EIAJ) 




BOITIER POUR DEUX FICHES 
PERITEL UNIVERSELLES 



TI-99/4A 
SON 




MONITEUR AVEC SANYO PHC 25 / IMPRIMANTE SHARP PC 1500 / IMPRIMANTE 
PARALLELE TYPE CENTRONIC PARALLELE TYPE CENTRONIC 



C'EST NOUVEAU, 
CAVIENTDESORTIR! 



COMMODORE A MAIN 



II n'est pas tout a fait nouveau. il 
n'est pas lout a fait bon marche. 
mais bon sang, qu'est ce qu'il est 
beaucetenginlalConstruitapar- 
tir d'un Commodore 64. le SX 64 
pese 12 kilos, mesure 40x 37 x 13 
centimetres et coiite environ 
13000 francs, le prix d'un Apple. 
Pour ce prix la. vous avez droit a 
un microprocesseur 6510 (com- 
patible 6502), 64 KodeRAM.dont 
38 Ko pour les programmes en 
basic ou 54 Ko pour le basic resi- 
dent. Une monodisquette est in- 
tegree. 170 Ko et un bus serie per- 
met la liaison a une autre unit£ de 
disquetle. Lesystemed'exploita- 
tion est un DOS de chez Commo- 
dore et CP/M est disponible en 
option. En option egalement, les 
interfaces RS 232 et IEEE488. 
D'origine par contre, 2 ports de 
jeux pour joystick sont disponi- 
bles ainsi qu'un port cartouche et 
un port pour la connexion d'un 
ecran exterieur. 

Le moniteur incorporeest en cou- 
leurs et affiche 20 lignes de 40 ca- 
racteres. La haute resolution offre 
320 x 200 points, et, vu la taille de 
I'ecran, les points ne doivent pas 
elre bien gros ! Les 8 sprites du 
Commodore 64 sont presenls 
ainsi que la synthese musicale, 3 
voies de 8 octaves. Le clavier, tres 
bien fini.esl detachable, et on doit 
pouvoir ecrire de beaux program- 
mes avec un maximum de con- 
fort. A moins que Ton prefere utili- 
ser les cartouches de jeux du 
Commodore 64 et, dans cecas la, 
le clavier ne sera que !e couvercle 
d'une console de jeu, ce serait 
dommage ! 

Avant de terminer, un petit calcul 
interessant : un Commodore 64 
coute 3850 francs, une unite de 
disquette 3380 francs, un cable 
peritel 166 francs, comptons en- 
viron 3500 francs pour un moni- 
teur couleur. nous arrivons a 
1 896 francs pour une configura- 
tion Commodore 64. Le SX 64 




coutelui13639francs Vousaurez 
done a debourser environ 2743 
francs pour devenir I'heureux 
possesseur d'un SX 64 portable 
sans cable ni fil superflu doni vous 
pourrez vous servirpartout, a con- 
dition delrouver une prise decou- 
rant. 



COMMOD'OR PUR 

Ulilisateurs de Commodore, a vos 
portefeuilles ! les nouveaux pro- 
duits sont nombreux, et il va vous 
falloir vendre voire or pour les ac- 
querir tous ! Une imprimante pour 
commencer : la MPS 801, matri- 
cielle a traction, specialement 
etudiee pour le 64. Le PtXSTIK 64. 
un super crayon lumineux pour 
peindre. dessiner ou fabriquer 
des dessins animes. Walt Disney 
doit s'en retoumer dans sa tom- 
be! 

Vous avez besoin d'aide pour pro- 
grammer ? Assembleur 64. Si- 
mon's basic pour faciliter la mise 
au point des programmes, le gra- 
phisme et la programmation 
structuree et, annonce depuis 
longtemps, Programme PAC 64. 
HORDAC 64 enfin, I'arme absolue 
de I'autoformation sur 64. ne 
comporte pas moins de 13 cas- 



settes de 150 a 430 francs, qui fe- 
ront de vous le gagnant des dix 
prochains concours d'Hebdogi- 
ciel. 

Mercure 64 est un logiciel de ges- 
tion de fichier sympa qui peut 
meme etre "gonfle" avec Master 
1-64. 

Si vous preferez jouer avec les 
programmes des autres jeux d'ar- 
cades ; SPACE ACTION, zim- 
boum-laser sur fond etoile - 
TOOTH INVADERS, ou vous de- 
vez vous battre contre les bacte- 
ries qui attaquent votre dentier ; 
LAZARIAN. zim-boum-laser one 
more time: AVENGER, zim-boum- 
laser derechef et SUPER SMASH, 
un classique mur de brique. 
Un bndge est aussi annonce. ainsi 
qu'un logiciel qui a I'air interes- 
sant et dont nous ferons rapide- 
ment un essai : MAGIC DESK for- 
temenl inspire du principe de Lisa 
ou du Mac d'Apple, ce logiciel re- 
presente un bureau dessine sur 
I'ecran ou Ton peut accederades 
programmes en deplacant une 
main vers des objets : une machi- 
ne a ecrire donne acces au traite- 
menl de texte. un meuble a tiroir a 
une question de fichiers. etc. De- 
vinez ce que I'on fait avec la cor- 
beille a papier, la calculette, la 
pendule et la porte de sortie ? ■ 
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queouMCH.modificationde et efficace avec presenta- 
chaine par rem placement tiondesdonneessousforme 

(langage machine). de carte de visite. 



Le premier HEBDOGICIEL 
SOFTWARE pour APPLE II et 
lie est livre avec un emballa- 
ge de disquette reutilisable 
et un livret d'utilisation, jl 
comprend 12!ogicie)s : 

BASIC et D.O.S. FRANCAIS 
pour programmer en fran- 
cais sur APPLE avec ou sans 
extension memoire, C'est un 
APPLESOFT en francais dont 
les mots sont redefinissa- 
bles ce qui laisse la possibili- 
te de personnaliser les ins- 
tructions et de creer votre 
propre langage basic en 
francais. Pour apprendre le 
basic ou pour I'enseigner 
(langage machine). 

PROGRAMMATION STRUC- 
TUREE pour une program- 
mation simplifiee et clarifiee. 
Acces aux instructions 



WHILE WEND. REPEAT. UN- 
TIL. IF THEN ELSE a I'aide de 
I'ampersand (&) (langage 
machine). 

MINI LOGO permet d'acce- 
der au graphisme tortue et 
aux procedures simples utili- 
sees par le langage LOGO. 
Les primitives sont adapta- 
bles. Ideal pour initier vos en* 
fants a LOGO. 

FONCTIONS SUPPLEMEN- 
TAIRES DE TRAITEMENT DE 
CHAINE. puissantes fonc- 
tions simplifiant la program- 
mation sur les chaines de ca- 
racteres. Plus de ASC 
(LEFTS(MIDS(AS.1,3))) illisi- 
ble. mais des fonctions Clai- 
res comme GLR. recherche 
un groupe de lettres ou SCH, 
extraction de chaine avec 
critere d'arret alphanumeh- 



SAISIE FORMATEE DE DON- 
NEES. indispensable pour 
une bonne gestion d'ecran 
lors d'une saisie. Permet de 
stipuler le nombre et le type 
de caracteres ainsi que les 
differents caracteres de 
controle. (langage machi- 
ne). 

EDITEUR DE PROGRAM- 
MES pour resoudre tous les 
problemes de correction de 
lignes basic : insertion, com- 
pactage. suppression, re- 
cherche de mots, etc. (lan- 
gage machine). 

GESTION DE CARNET 
D'ADRESSES, une gestion 
de tichier modulaire simple 



BISCRU. unjeu de reflexes et 
d'attentionouilfauteviterde 
laisser tomber les tartes du 
tapis roulant Un graphisme 
elabore digne des jeux de 
cafe ! 

PARACHUTISTE un jeu d'ar- 
cade francais. Les paras 
comptent sur vous pour ne 
pas tomber a I'eau ! 

SOLITAIRE, un jeu classique 
au graphisme soigne. 

Et ENQUETE. mi-cluedo mi- 
mastermind, decouvrez 1'as- 
sassin, I'arme, le mobile et le 
lieu du crime parmi une foule 
de suspect. 
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LOGICIELS FAIT MAIN ! 

Pourquoi acheter cher des programmes que vous pouvez entrer vous-memes dans votre ordinateur ? Utili- 
sez-les tel quel ou ameliorez-les pour en faire VOS Logiciels. En vente dans les FNAC. les boutiques 
HACHETTE, la REGLE a CALCUL, chez les principaux revendeurs ou par correspondence en utilisant le bon 
ci-dessous. 



JEUX et PROGRAMMES 

pour 

I'of dlnatour familial 

TEXAS NSTRUMENTS 




"rogrammez vous-meme en Ti- 
Fi.isic grace a des instructions 
'.imples, sans aucun peripherique 
ci module complementaires. Des 
jeux originaux et passionnants 
avec couleurs, graphismes et 
sons : Jeuxdemouvemenl (Bow- 
ling. Balaille de I'espace. Labyrin- 
ihe, etc.) Jeux de reflexion ; Da- 
mes. Rendu. Awari. Tourde Hanoi. 
Architecte, etc.) Jeux de societe 
1 421, Goldie. Cochon, Mastermys- 
ler, Chiffres et mots, etc.) 
Des programmes performants: 
Calcul (Factures, Paye, Biorylh- 
mes. etc.) Assistance (Tierce. Im- 
iiots. Suivi de compte en Banque, 
etc ) El aussi des Astuces pour 
augmenter la puissance du lan- 
gage Ti-Basic. 



Le tome 3 est en basic etendu.ii 
necessite done le module Exlen 
ded Basic" qui augmente consi 
derablemenl les possibles d<? 
voire ordinateur. A des program 
mes utilitaires comme un traite 
ment de texte ou une gestion 
complete de plusieurs comples 
en banque s'ajoulent des jeux ra- 
pides (bataille navale, course de 
voitures.etc), des jeux de societe 
(Theme astral. Drapeaux, Poker, 
Harmonium, Caiculetle scientifi- 
que. Ardoise magique. etc.). des 
utilitaires pour creer des lutins.fu- 
sionner des caracteres.dessiner 
point par point, faire defiter des 
textes dans tous les sens ou en- 
core fabriquer une mire Texas a 
votre nom ! 



pour 



JEUX at PROGRAMMES 

pour I'ordinateur familial 

TEXAS INSTRUMENTS 

Toma 3 




pou- 

L'ORDINArEUR 
0RIC1 




vsummm 



Du jeu de reflexion classique 
(Tours de Hanoi. Rendu. Color- 
mind. Awele, etc.) aux utilitaires 
pedormants (Generateur de Ca- 
racteres, Tri, Calendrier. Histo- 
gramme, etc.) en passant par les 
jeux de reflexes (Terroric. La Plu- 
me et le Poussin, Labyrinthe. etc ) 
les jeux d'attention (Dames, Ro 
lalions. Enigmes, Coffre-tort. La 
Peine, etc.) ou de hasard (Poker. 
Ouinze-Vainc, etc.) et sans ou- 
hher les mathematiques (Frac- 
tions, Nombres Premiers. Traceur 
de Courbes, Multiprecision, etc.). 
Jeux et Programmes pour ORIC 1 
offre un large eventail de pro- 
grammes aux couleurs, graphis- 
me et sons trds soignes. 
une mine d'or pour votre ORIC 1, 
Existe aussi pour ORIC ATMOS. 



JEUX et PROGRAMMES 
pour I'ordinateur 1 1 
TEXAS INSTRUMEN 
Tom* 2 




,_i3 tome 2 est toujours en basic 
simple, sans peripherique ni mo- 
dule complementaire Plusieurs 
programmes comprennent des 
versions tonctionnant soil en ba- 
sic simple, soil en langage machi- 
neaveclamini-memoire. Les jeux 
y sont encore plus nombreux 
Blackgammon, Sous-marin. Trap- 
pe. Roulette. Casse-tete, Puzzle. 
Echecs. Tachistoscope. Kim. P.n 
res. etc. De la musique a inclure 
dans vos programmes Big Ben. la 
Marseillaise. God save the queen, 
les Rois mages, etc. Et aussi, des 
programmes educatifs Arithme- 
lique. Calcul de puissance. Re- 
gions de France, enlralnement ii 
la logique informatique. etc 



Vous connaissez le Ti-Basic. vous 
possedez un TJ99/4A et un modu 
le "Minimemoire" ? Vous pouve.- 
desa present disposer detoute l.i 
puissance de votre ordinateur 
Acces a toutes les possibilite 1 - 
graphiques.ycomprisla haute re 
solution. Acces direct ala memoi 
re centrale, Grande vitesse d'exe- 
cution (deux minutes au lieu de 
deux heures trentepour un meme 
programme) 

Ce manuel, comprenant un grand 
nombre de programmes com- 
mentes vous apprend progressi- 
vement, sans connaissances 
techniques prealables. a mailnser 
un langage tres puissant reserve 
jusqu'a present aux seuls specia- 
listes. 





Explore! les etonnantes possibili- 
les de votre CANON X-07avecles 
quelques 40 programmes reunis 
dans cet ouvrage Des program- 
mes pertormants qui fonction- 
nerit sur le X-07 de base (8 KO) 
calculs sclentifiques : op6rations 
sur les matrices, conversion rjfl 
coordonn6es. racines do polyno- 
mos, integration, interpolation. 
etc Des utilitaires gestion do 
compte en banque. histogram- 
mc. impot. hard copy, trace de 
courbes. biorythmes. etc Des 
jeux : loto. pokor, ardoise magi- 
que. un peu d'EAO, un super jeu 
daventures : leTresordu Gallon 
el 3 "gros" programmes qui nfr 
cessltenl une carte d'extonsion 
•i « Astral, Tierce ol Surfaces et 
Volumes 
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BOULIER 



Le boulier chinois quelle fascination lorsque Ton pense 
que certains praticiens asiatiques vont aussi vite que les 
premiers calculateurs electroniques !!! ou presque. Aiors 
a vos claviers et que le premier qui trouve le resultat de 
2748 387 x 1.438. 227 plus vite au boulier qu'avec sa ma- 
chine, previenne immediatement la redaction !!! 

Olivier MORIN 

Mode d'emploi : 

Le programme boulier se veut un programme d'education pour Jes 8/12 
(ou plus) et permet d'apprendre les rudiments du boulier chinois. 
II suffit de repondre aux questions et d'appuyer sur une louche quand 
une ffeche clignote en bas a droite. 



630 Xi-ViPRiNT '■MOflBDSUe M13I9CWJB a ?89 

540 PRINTlPRIHT 'DtCOUUTOm nj'r, n'r a Ml ro«en" 
630 PRINT -9 tur c» t te color* il f am •(PRINT 'en t 
460 PRIHT -<» I-, wipm, oreiecfenie. - 

&z x*--i7-ipriwi 'ccssas-ts-::--; =?^.g.:-';s -..;.v 

SBC PRIHTiPRINT "CCOSP-ji* *n bailie- 2 de la rgjon 

693 F»!t;TiPRIKT:FSIMT:f;?*]. l B ">099 

6« X*-'13"iPRlNT -D-:505JB «?! 

-?C FRINT -BOOJanlB-iPFIHT "Le feivh-l -$•, bten IS 

703 G03JB sew 

7[? PRINT •■«oi» il ( 5U ( roler t>» *.jr 1* bowlier" 

72? PRINT M 'addition <.«wer>ce car If chiffr* de - 

730 PFIHT -(Oyer* . atr,*: 6o>jr OJOUlar 36 S 68 On 

74? PRINT ■oJoutCPd d'ibofd 19 ovi» intuit* S...-I 

76c Pftnn *OHB' 

7?e x»--9e-i;-".:s 9s?;ir.^ue -j:08(GC9jb scee 

780 PRIHT "COBBO" 

790 Xt-"96"!G«'J= 9S9;si30tU3 9IM 

??3 PRIHTiPRIHT "On obiitnt bien 96 'n'lGOSUB ?w 



3 GD3UB r*00(PR!HT 

IB PRINT "Korwnt _. . 

10 PRINT "Rien de Plus sirwle... 

30 PPJNTiPRIHT-Il luffit <Je KJvo 

4C PRINT 'l es th,ff,es n/r ce Ml 

30 PRINTiPRINT "Par exenole '1 ' I 

60 X»--l*iPRINTlPRINT!GC!SUB ?0?3 

76 GCJ-B 5003 

88 PRINT -IPo-ji 



—•eo-isosuB 2eee9iGosue 9000 



=13 PRINT 

S20 PRINT "II u 

830 PRINT -<tue 
S40 PRINTtPRJWT 

830 PRIHT '■ o*j 

560 PRINT " 2 ! 

370 PRINT " OU 

590 PRINT - 3 i 

Q50 PRINT - ou 

?ec PRINT ■ 



B PR;nTiPRINT"'Jov* avez conerii.naii sour rePre 



'iPRINTlXl--3-:G0tUB S0531PRJNT 
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:ee pr;i 

116 PRINT - le; 

126 PRINT "de* unite* e*ll«s du haul «n re 

130 PRINTiPRINT -Dor*; oour rePre»errter T 

i« print: Gog^ 9eee 

136 PRIHT -1EI ftoimeryj/n Mur •?'... "IPRIN 

160 X*-"7"O05UB 90931 PRIHT: PR INT 

179 PRIHTtPRlHT "Et il en va de rwfw ©our 1 

iee bosub seee 

198 PPINT'K)orn a&jr reorejenter '1982' or, 

200 GCSUB 92TO:PRINTIPRINT-C'e»l iir.lt non 

283 qosls 9eae 

210 PRIST -IFoisoni «u«Hu«t eaercitei." 

228 PRIHT -J« van afticher ,uel^,jei valiur 

238 PRINT 'et vou* allei eiiover de -.rower 

248 PRINT -si Janan youi eoho-jei deux foil 

238 PRINT 'de suite. Je voui donnerai* la w 

26C QOSUB 98ee:8*8iR*--" 

270 FOR P-8 TO 9 

288 X-IHT'.RNP(i)»iet(IKT(RN0(l)*P-'3 

2» X*-STR*(X) 

398 PRIHT -lEiiai nunero i 'iP+1 

318 PRINTIOOSUB 9093IPRIHT 

313 FOR R-8 TO 1 

328 HJSIOt»tINPUT 'voire reoome J "IV 

33e IF X-V SOTO 370 

348 PRIHT 'Oeiole ce n'eit an la bomt reo- 

338 NEXT R 

368 PRIHT 'La solution etait flXiBOTO 373 

378 priht •Bravo ::'-ib-b*1 

373 GOSUB 9989 

388 HEXT P 

488 PRINT -IUaui 

418 PRINT "«*tsr 

428 IF B<3 THEN PRINT 'instrfiiant. *iPSINT-reconr*ncei ■ 

438 IF B<-6 THEN PRINT "atwi blen'tlNPUT "'joulei uoui 

448 IF LEFT*<R*,l)--0* GOTO 278 

438 IF (B>6)»<BO> THEH PRINT "bltn. *1PRINT "™>i* uo-js 

468 IF B>-8 THEH PRINT "tre* bien !!!*iPRINT 'Toutei. m 

488 90308 9888 

499 
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PRINTiPRINT "Le o 




tres linolf." 




PRINT 
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PRIHT 


'oolorme « 










PRIHT 


PRINT -Hira 


i f>wr fair* 


3+3 . r- 


ardei c 




PRINT 












XJ--3 


iPRINT ■CCBBBBBBBC-JGOiUe 9893 






aoeve 


9cee 










x»-*g 


TPRIHT ■BTOBBBunjC-iriOSijB 9391 






scsue 


98CC 










PRINT 


■Btai* tue! 




nt utiles 






PRINT 


"Pour addit 


omcr 7 S 9 


uou* fait 






PRINT 


'd-aboi-d 7 


sn obaitsan*. un* boul* 


iPRINT 




PRIHT 


•oui* en el 


tvam 2 boule 


"IPRINT " 


nf*ri*u 


■•*.* 



i. r^imenant canons 
>ui laui absolunent n 
■our addittormer I* 
- I i aiouter 3 »t ( 
oJouter 1C et enleue 
a;o'Jt*' 3 *•. eile-j* 
ejouter 19 et enlev* 
aJ0'A*r 3 et enleve; 
aJouter 10 et enleue 
OJoUttr 3 et enie-je 
z;o'j\tr ;C et *nle-rt. 









: cJo'j'.' 



) PRIHT - 
?29 PRIHT '■ 
919 PRIHT " 

94C PRINT - i i aJoutei 

93C PRIHT " oy aJoutei 

968 PRINT - 7 i aJoutei 

;7i PRIHT " ou aJoutei 

988 FRUIT ■ 3 i a-iovter 3 el ajou'.ei 

990 PRINT " ou afOUtcr le et enlevei 

ICC? print ■ 9 i a:o-j..er 3 et aJouu 

18ie PRIHT " ou aJouter 13 et enlev. 

I92C PR1NTIPRIHT "o'eit »iru=!e non 7 

K-Zi GCSije 9989 

1849 PRINT '8Si*n nai 

1939 PRINT -add!' 



let 



■R1KT ■ 



la i 






1648 PRINT • ou enlever If tt -■--,-., ;• 




1638 PRIMT ■ t, i enle-.'er 3 n tnl«u*r 1" 




16',S fo]ht - ou enle-.-e- ie et oJouter 4" 




:678 PRIHT " 7 . enleve, -, ... Sllw 2" 




1688 print - cj nl**r ie et rJauUf r 




165« PRINT - 9 , , n! «v- P ; , { fr ,j Mp j. 




179C PRIHT - o-j enle-^ep ie ... , i r fJltr 2 - 




1718 PRINT - 9 1 enle-^er 3 ... er-lev*,- 4- 




172? PRINT - v, enle-.-e- 19 et ajout.r 1" 




!7M FPrHTIPflINT 'c'fW *<mlc nor, ?<? - t 




1748 90SOB 9989 




1739 PRIMT "Kt rvjtnter-int tour oono''jre. en loi* 




!76? PPiHT -le SOin a un outr* .roirimt d* uou4* 




1779 PRINT 'tMrenjrr a nultielier et dlvlstr " 




17S8 PRINT -av«c te n«ryeille«>. ir,»trun*r,t ou '«»t 




17?? PRINT "le boulier, vovoni un o*-j ! T,li W rU^ 




IS88 PRINT -d* oelui ei." 




1318 FRlHTiPfilNT 




:^:? PRWT -L-histoire fait reror.ter i, Soulier' 




(838 PRIMT "Chinoi* a un* ire* haute mtlewlU.' 




i;4? PRIHI "La ">lu* arAiem* reference oonr.j* oat 




1998 F = :"T --ie la dmasne Vuan <1277-1367) nail. 




15->: PPIh.'T -il cor.tir.je a etre utiliier torn en" 




157? PRIKT -Cr.;ne rj'en O.R.S.S. et ou Jowm ou i 








:???• FP!NT:FR:HT:PRl:n-:; est auss: "roele abatu* 


1 


1998 PRINT -au »rec 'abacus' lienifiant toblef.e. 




:?:? nC:J.-6 998? 




I?;-? PRIMT "ZEn b;?n ncus woici ar'iue* a la fin. 


9 


1939 PRIHT 'j'tiMrt *i* ce BroinKv* vous aura o 





1940 PRINT "et «ue vous etei nainlenant un virtuo 
:;■■-> -fllHT -au coyli.r !■ 



PRINT ~n( 
1888 PRINT "earfalten«nt C 
1?9? FPIHTiPRINT "Qinti li 
1288 PRINT " iur 1'addition entrej 
1218 IF LEFT*'R*.l)"-0" SOTO 490 
1228 PRINT 'SLtt rttlM de la * 
1239 PRIhT "eratinuenent lei 
1249 PRIHT 

1238 PRINT "Ceoendant il fai 
1268 PRIHT "wis aJouter !!!' 
::7? r.:tijs 9999 

1239 PRIHT "Jvoioi un ex*™! 

1298 PRIHT 'Esiaror* de retrancher 336 o 732 t " 
1383 XJ-"732"iPRINTiGDSUB 9893SS0SUB 92991 BOSUB 9930 
1319 PRIHTIPRIHT'Enlevom noinlenant 389. " 
1328 PRIHT -C*la revient done a enlever 399 Puis . ' 
1339 PRINT "a a.'outer 289." 
1348 Xf--232"fPRINT "CGB" ' GCSIJ3 9393iQO%'B 9299iSCTue 989e 
1338 X*--432";PRIHT "GOB'iQCSua 9893tB0SUS 92e0iGOSUB 9809 
1360 PRINTiPRINT ■rtainttnant enlevons 78 . ce <OJi r*yi*nf 
137e PRINT -a retrancher 188 et a raJouter 30.-JSPCC38) 
1788 X*-'332"IPRIHT 'tWlSOSUB 9893iG03ue 92e0l3OSUB 9098 
1390 X*--392-iPRIHT "ZW 1 201-,-B ??93iWiiJB 9290iOO-?jB 9990 
1490 PRINTIPRINT-Enfin il fay. enlevtr 6 c* tui reuient a"l 
1410 PRIHT "enlever 18 cui* aJouter 4 ■ et dan* ce" 

1420 PRIHT "ca* c*la revi*nt a aJouter 3 et en * 

1423 PRINT -enlever 1 ,..■ 

1430 X*-"372"iPRINT "CBB-:Q0$lJB 9?33iQ05UB 9239'503'JB 9089 

1440 Xi-"37s-ipRINT -CCE" iGOSUE 9893iGra;B 92e9 

1430 PRINTlPRIHT "Le reiullat e*t bi«n tvld*nn*nl 376 !"I;PC(2393 

1468 GOSL'B 9089 

1470 PRIHT "Bflttentlon il faut atuolunent ^ye uouj" 

1430 PRIHT "ar« conorl* oet exenele oour oouvolr" 

1498 PRIHT "faire correct«n«nt de* *ou*traclion*." 

1309 PRINT! INPUT "i^oulex voul 1* re-joir I "IR* 

1313 IF L£FT*<R*,l)-'0' GOTO 1288 

1328 PRINT "JBlen. naintenant r. 



I33e PRINT 


•II uo 




1348 PRINT 






1338 PRINT 


»RIHT 


' 1 i enlever 3 et 


1368 PRINT 






1378 PRINT 


" 2 1 




1390 PRIHT 




enlever 10 et aJoui 


1590 PRINT 


• 3 i 


enlever 3 et aJcrt 


1698 PRINT 




enlever 10 et oJovt 


1618 PRINT 




enleuer 3 et aJout 


•628 PRINT 




enlever 18 et aJout 


1630 PRINT 


' 3 i 


enleuer 3" 



=»:^T:PPNT:PR]irf 

FRIHT '3i uous desire; en *avoir olus ou," 

PRINT "Bour^uoi bos anuerir un boulier." 

PRINT "vou* tro^werei le necessair* dan*' 

PRINT "le* bouti»u*» de Jeux et ca*»e*-letes.' 

GOSUB 9996 

SOSUB 289881 PRINT I PRINT 

PR INT I PR I NT I PRINT I PR INT I PRIHT TBB(18)l'flu re-^oir.' 

PRINT I PR I NT : PR I HTi PR INT 

END 

nuSIC NtlPOKE 18487.0 

FOR 0-1 TO 309INEXT Q 

POKE 34247.88 

FOR 0-1 TO 388i NEXT S 

SET (WlIF Rf--' THEN 

PCXE 54247. 0IPOKE 1 6407 . 1 94 1 RETURN 

PRINT 'r-r - .- , , * ■ , r r .' 

FOR J^ TO 10 

PRINT "l"l 

FOR K-l TO 13 

PRINT X*(J.'J0L(KIW<X*,K,1)>)1 

NEXT K 

PRIHT ' I- 

HEXT J 

PRINT •■ ■ * 

PRINT * "liftETURN 
FOR I-i TO 13 



POKE 34247. 1931SOT0 9001 



PRIHT MIMtXt.I.DI" ' 

NEXT I 

PRINT 
9230 RETURN 

9998 REM „ i 

9916 DIM X*tl0,9) 
9926 FOR 1-0 TO 9 
9930 FOR J-9 TO 10 
9949 REOO W(J.I) 
9930 NEXT J 
9968 NEXT I 
9976 RETURN 

11060 cpiR :e,r«,:i.-f.:i,;i.s».:*,t».M,;» 
11918 ;-;- E*,s*.:i.-t.tt.:i.si.:t,:«.M.u 
11626 cmn ;e,i#.:i.-+.i».t«.:i,:i, i»,i»,c« 
ii83e MTfl r».t*.ci.-t,M.c*.M,ti.:i.i*.:e 
11848 OflTO e*,e».;i.-t.«.M,»,s».Ei,Ei,M 
il?:? DflTR :e,:i,:».-r. = i.ei.e#.t*.c«.i*.» 
11868 omn s*,Ei.E*-.-f.:*.:i,:i,».E>,Et.s« 
ue79 OPTP, Et.si. se. -t.E».e». si. si. z».z».t* 
n?38 osts :«,:i. :•.-+. ».u.e«.:i. :i, u. :• 

11999 WTO E*,EI.:i.-f,Ee.C*.:*.t«.EI.CI.e« 

2e30e PP.IHTlPRINTiPRIHTiPRIHT 

29981 PRIHT " I 

20982 PRINT " i — t— 

28603 PRINT " I 1 

26864 PPINT " I I 

20093 PRINT " ' — r— 

28966 PRINT " I 

28018 PPINTlPRIHTiPRINT 

2e?20 PRINT TflB(13)!-0n*ne»e dbacu*." 

20930 PRINT 

28040 FRIHT TRBU3>rBoulter Chinois. 

20639 RETURN 
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AGENDA 



Votre FX 702 P se tranforme en un indispensable agenda 
grace a ce programme qui vous permet de noter jusqu'a 
20 rendez-vous ! Bravo non ? 

Philippe BARREAUD 

N.D.LR. :SpecialistesduFX 702 Rqu'attendez-vous pour 
nous faire parvenir d'autres utilitaires (gestion etc..) ? 



Mode d'emploi : 
Tableau des options : 

R pour RESET efface tout et reinitialise le programme 
MpourMEMORISER. Vous pouvezenregistrerun maximum de 20 mes- 
sages. Ceux-ci ne doivent pas exeder 28caracteres, lous les autresse- 
ront supprimes. Pour des raisons de taille memoire, la machine nepeut 
contenirque 20 messages de 28 caractereschacun.maispeutallerjus- 
qu'a 16 messages de 28 caracteres. Le FX previent lorsque la memoire 
est saturee. 

On peut enregistrer autant de messages que Ton veut (a concurrence 
de 20) pour un jour donne. Fournissez au FX I'annee, le mois, le jours 
puis le contenu du message : e'est dans la bolte ! (Attention : Le 702 P 
ne peut enregistrer des messages pour des annees anterieures a ni 
pour des annees posterieures k 9999). 

F Pour FIN arrete ('execution du programme. II ne faut pas alors oublier 
de glisser rordinateur dans sa poche. 

C Pour CONSULTER les messages enregisfres pour une annee specifi- 
que (A), un mois (M) ou un journee particuliero (J). Donnez loscoordon- 
neesdernandees par la machine etcelle-ciafficheralenumero decode 
des messages etleur contenu (exempledenumero decode: 102198 

4 C'est-a-dire 1" Fevrier 1984) 

E Pour effacer les messages. M&me manoeuvre que pour consulter 
(apres I'effacement, la memoire est rafraTchie c'est-a-dire que les trous 
causes dans la pile memoire par la disparition d'un message sont sup- 
primes par decalage vers le bas des messages suivants) 

5 Pour SAVE qui enregistre sur cassette lensemble du fichier 
L Pour LOAD qui charge le fichier contenu sur la cassette. 

La capacito du fichier n'ost bien sur pas 6norme, maiselledovrait pour- 
lant suffire a un emploi du temps logor. 
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145 IF fl«(R)=""!H=! 


RESET! 
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23 IF K(="L";6ET R 


155 IF H=];PRT " ": 
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BNNEE? 
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169 PRT Bi(R)l 


HOIS? 


25 IF KJ="R"!V»C i 
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»=2B:PRT "RESET 


498 H*=KEY: IF M=™ 
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PiSOTO 29 


THEN 488 
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39 IF Ki>V;GSB 5 


41B PRT HilRET 


HESSB6E? 


BBreOTO I38 


589 PRT "(B), («) OU 


BCHETER HEBM ! 


49 «!=■": 6SB 591 :« 
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591 INP "HNNEE^HH ' 


"" IlSCLERF ? 


=21;P=2B:60T0 6 


F «="fl"!H=889: 
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99 
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(R).(IO OU (Ji? 


59 IF M>99;M=99:60 


582 INP "H0IS",V:IF 
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TO 699 


HS="IT*V*B/1 


8NNEE? 


69 fl!P)=Xth:!NP "H 


e4:H=998:RET 


1984 


ESSB6E°,i:L=LEN 


519 INP »J01)R",J:H= 


HOIS? 


(i)tl 


959:X=M9B*V/| 
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78 I=-6: IF L-D28! 


e4*B/1e8:RET 


6841984: 


J=«IM1.28):L=2 


698 PRT "FIN HEN.!" 


BCHETER BE600 ! 
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:60TO 28 




88 1=1+7: J=7:6=8B: 


766 fli(R)="":F0R J= 


IlSCLERF ' 


IF ItMJM-Il 


I TO P:fl(J)=B(J 
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6=28 


)-l:NEXT J 
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85 IF K THEH 26 


719 H=K-|:F0R J=R T 
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96 flt(«)=HI[>(I,J): 


H:Bt(M((J* 


BNNEE? 


r)=H+i: IF N=198: 


1):NEXT J 


1984 


H=99:fli(lt)="*:6 


729 C=145:IF N=liC= 


6941984! 


0T0 699 


155: IF P«9M=1- 




199 60TO 6 
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139 H=9:F0R 1=1 TO 


736 SOTO C 


HSCLERF ' 


Pi6SB H:1F 0<Xi 


868 6=FRBC (B(I>llE 


F 


NEXT |:60T0 26 


4i'lE4!PET 


SBLUTI 


131 IF DP THEN 28 


999 0=FRBC <H(I»1B 




135 PRT FRBC B(I)>1 


8)«I66:RET 




e8;":" 


958 B=FRftC B(I»:RET 






OTHELLO 



Mesurez-vous aux capacites de "raisonnement" de votre 
MPF II. Un bon programme d"OTHELLO ou vous n'avez 
pas toujours la partie belle. 

Le mode d'emploi ainsi que la regie du jeu se trouvent 
dans le programme. 

Laurent KOENIG 




70 rexr 

so hi mem jrooo RESTORE 

SO GOTO 140 

180 S * ' 

103 FOP K ■ 1 TO e 

no t3 - x<* .■ « . y< k> [«■!-» 

■ J * J3 SI - 

113 IP aci« • i,js -» i> < :■ ts 

THEM 19$ 

tze si ■ « + l'ie - is ♦ 13' js ' 



123 IF A<16 * l.Jfi ■ 

139 IF Acts - l,J6 ■ 

THEH 190 
133 S - S * SI 

149 IF U f :■ 1 THEI 
l»3 16 ■ I Jfi ■ J 

130 FOP 2 * 9 TO SI 



■ ■ T2 THE" 120 



133 i 



J« ■» 



;ro hcolqr - n 

171 IF Tt - 2 Th£m HCDLOR ■ I 
173 dpau ir at j£ t 16 * 62,iI6 

* " i ) i 1 6 
iso 15 • 16 + ta js = J6 ♦ J3 

183 HEXT Z 
190 NEXT K 

193 [F (J - 1 THEM 229 
200 IF [ ■ 17 AND 17 J 1 THEM 17 
■ 17 - 1 



203 IF I - IS HMO I < 8 


THEN 18 


- 18 * 1 




219 IF J - J7 AND J7 > 1 


THEM J 7 






213 IF J • J8 AND J8 < 8 


THEM JS 


■ J8 * 1 




229 RETURN 




222 REM 




224 REM 




226 PEN It L'OPDIMATEUP 


JQUE I* 


228 REM 




229 REM 




230 61 - 69 19 » T2 - H 


J9 - on 


- 




249 FOP. I ■ 17 TO IS 




243 FOP J • J7 TO JS 




247 IF St I . 1. J . li ( 


> 1 THEN ; 


249 U * - 1 COSUB 199 




231 SI ■ S 




253 IF S - 9 THEM 270 




233 IF I • I IK I • < THEN SI ■ SI 



237 IF I « Z OR I « 7 THEM SI - SI 

- P 
239 IF J - 1 OP J ■ 8 THEM SI - SI 

261 IF J • 2 OP J * 7 THEM SI - SI 

263 IF SI ■• El THEM 279 
263 IF St > El THEN 81 - SI Hi • 1 19 
« t J 9 ' J GOTO 279 

267 H2 - H2 ♦ 1 

269 IF INT ' PHD ■: 1 > * M2 > • 9 

THEN 19 - I JS * J 
279 NEXT J NEXT I 
274 IF El - B9 THEM UTAE 21 HTAB S 

PRINT "JE DOIS PASSER ION TOUR" P9 

■ P<3 * I ■ GOTO 292 
273 P9 ■ 9 I * I* J ■ J9 

276 HONE ■ HTAB S' PRINT "J£ JQUE £•■ 
MIDI (CI. J ■• I, I ); I 

277 U ■ 1 COSUB 199 

278 Ql«01+S-IH1=H1-SN! 



MP-Ftt 



279 HTAB S PRINT "CE QUI HE DONNE ' 5 

280 IF S i -1 THEH PPIMT ■ PIQN" 
263 IF S ) 1 THEN PRINT " PIONS* 

286 HTAB 3* c'T-B 3 PPIMT ■ 

287 HTAB 34 l/TAB !■ PRINT 01 

288 HTAE 37 UTPB 3 PPIMT HI 
290 FOP P * 1 TO 2000 ■ NEkT F 

292 RETURN 

293 PEN 

294 REN 

293 PEN II INITIALISATION TABLEAUX ET 
VARIABLES It 

296 PEN 

297 PEN 

300 BIN Ai 19.19'. Xf e>.Y(8>,T<29> 
393 CI - " ABCDE^GM - ■ E ■ 2 M ■ 3 £9 

■ - 190 
319 FOP t - I TO 8- READ XCI>>YCI>> 

HEXT I 
339 FOP I ■ 1 TO 10 FOP J • 1 TO 19 A 
■ NEXT I 



333 l 



3.3> 



K«,*>) 



its.ei 



K€.3» ' 
349 01 - 2-Hl ■ 2 Nl « 4 F9 " 9 !7 

• 3 18 - 6 J7 - 3' J3 " 6 
343 PEN 

339 REN 

333 PEN It INITIALISATION DRAU It 

360 REM 

370 PEN 

409 S - 3 7098 

493 POKE 233. INT i. S •' 236 - ■ POKE 1:1. S 

- ( INT <Z / 256) I 236> 
418 READ M POKE S,H POKE 8 * 1.3 
413 II - 2 4 2 » N POKE S * 2x11 

POKE S - 3.9 
420 IN - 11 

423 FOP F - 1 TO N - I 
430 READ TfFJ IK - IN * T< F J 
433 POKE S ♦ 2 ' <f * I,. IN - C 
INT (IN v 236- I 236) 

449 POKE S -* 2 t CF -. I) ♦ I, INT (IH 
S 236 > 

443 NEXT F 

450 READ TCH) 

433 L - IN - II - T(M> 

460 FOR F • 9 TO L - 1 

463 READ X 

470 POKE F * S * II .X 

473 NEXT F 

476 REM 

47 7 REM 

489 REM II EXPLICATIONS II 

485 REM 

498 REM 

509 HOME 

593 PRINT TAB( 13>.--orHELLO" 

306 PRINT TAB! 15.;* "- PRINT 

310 SPEED- 100 

329 PRINT ■ LE JEU OTHELLO S£ JOUE S<JR 
UN PLATEAU*. *DE 64 CASES AOEG 64 PIONS R 
EUERSIBLES.*,*<UH COTE BLANC tT UN COTE 
UERT, ' ■ PRINT 

323 PRINT " LE BUT DU JEU EST D 'ENrOURS 
P LES PICKS', -ADUERSES FOUR QU-ILS SOIEH 
T DE LA-.-COULEUP DES U0TRE3 " ■ PRINT 
339 PRINT " ENTOuPEP. C 'EST ENFERMER UN 
PION OU-.-UHE RAN GEE DE PIOUS DE L'-OUE 
RSAIPE-.-EHTRE UN DE UOS PIONS DEJS POSE 
S ET-.-CEUJI QUE OOUS PLACEZ ." > PRINT 
333 PRINT - UOUS DEUE2 TOUJOJRS EHTOWE 
R AU HOINS-.-iJN PION ADUEPSE ^ CHAQUE TO 
UR. OU ALORS-.-UOUS DEUE2 PASSER UOTRE T 
PRINT 



350 REM 
560 



DESStN D'J Du'UES 



i.;o_.>- 



II 



■ ELAM 



363 FOP V • 28 TO l 16 STEP l 

370 KFLOT 70. v TC 1M< V 

373 NEXT V 

380 FOP n » 70 70 190 STEP 16 

383 HPLOT ■■!. 20 TO U-; 

390 HEXT X 

391 SCALE- 1 
393 KCOLOP > 3 

396 FOP II • I TO S 

397 DPAU II at 39.29 * 1 -. t I 

- t :-■ dpau II - i at 77 - :-; 

- 1 >.9 

398 NEXT II 

399 USUI 3998 
690 HOME 
613 PPIMT -UOULEZ-DOIJS LE6 PIOI 

OU JAUMES-.-H OU !>•;■ GET P*' 
PRINT P« 
616 PRINT 

629 IF PI ■ -f THEN ■ N'H • B 
GOTO 631 

623 IF PI - "t" THEN • B'H - M' 
GOTO 631 

630 GOTO 613 

631 HOME GUSU1 2099 

635 PRINT -UOULSZ-UOUS COMMENCER ■ 0- 
? *; i GET PI PRINT PI 

636 PRINT 

649 IF PI !. > "O- AND P* < > *H- 

THEN 633 
643 IF PI - "0" THEN 709 
659 GOSUI 238 
633 IF HI ■ 9 OP HI • 64 OP P9 • 2 

THEH 833 

637 REM 
639 REM 

661 REM It LE JOUEUR JOUE It 



663 



REN 



663 REM 

709 Tl « H.T2 ■ 
703 HOME 

710 HTAB 8' INPUT "OU JOUEZ UOUS ' "s\ 
■ HTAB 8' PRINT ■ EH "rZI 

713 I - UAL < HIDI (Zl.2,l>> R« 

- MIDI '.Zt,l.l> 
720 IF I < 9 OR I > 3 THEM 793 
723 IF I > THEN 735 

730 PRINT i HTAB 8 PRINT "PASSEZ "JOUI 
VOTRE TOUR ?' GET R* 
733 IF PI « -N" THEM 785 
740 GOSUB 980 
743 IF H2 > THEN 793 
730 IF N2 < =2 THEN P9 - P9 * I ' 

GOTO 030 
733 J • 9 



■ Z'Z * a 

770 NEXT Z 

773 IF J - THEN 703 

780 IF Ad 4 1,J * 1) < > I THEK ; 

783 U » - 1' GOSUB 100 

798 IF S - THEN 703 

793 P9 - 9-U - 1 ■■ GOSUE 109 

800 HOME ■ HTAB 8 

803 PRINT -CECI UOUS DONHE VS; 

819 IF S < - 1 THEH PRINT - PION' 

813 IF S > I THEN PRINT ' PIONS" 

823 HI - HI * S - 1 01 . 01 - S'Nl 

- HI ♦ 1 
838 HTAB 34: ijTAB 3 PRINT ■ 

831 HTAB 37: UTAE 5: PRIHT HI 

832 HTAB 34i UTAB 5' PRIHT 01 
849 IF 01 > 9 AND N < 64 AND P9 

< 2 THEN 639 

859 REM. 

851 REM 

932 REM tl FIN DE LA PARTIE tt 

833 REM 



334 REM 



lUEZ ' 



Hi! 



538 



PINT 



339 SPEED* 2-55 



I -iOl 

863 IF HI > 01 THEH PRIHT "ERAUO. 

AUEZ GAGNE.- ' GOTO 889 

978 IF HI » 01 THE" PRIHT "NOUS ■ 

EX-AEOUO . ' ■ GOTO 388 
373 PPIMT "J 'AI GAGNE • 



. -: •- - ec 



683 PPIMT ■ 

■ ■ ',Ef PI 

999 If Ji > re them TE:<T END 

591 TEXT RUN 

092 PEM 

393 FEH 

893 PEH it pouS E -i-;E; :'--: 

'ORDINATEUH ■■..• Otrt i« 

397 PEM 

39 9 PEM 

980 N2 - 19 ■ J? ■ 9 

903 FOP I - 17 TO 18 

918 fop j - .' ro J8 

913 IF At I • 1 . J • 1 ' ■ J \ TNEn 9»9 
928 U - - 1 GOSUB 100 
923 IF S - THEH 940 

939 N2 » M2 ♦ I 

933 IF IHT < RHD (1) I M2) ■ 
THEN IS* - I J9 - J 

940 NEXT 3- MEXT I 
930 IF H2 - 9 THEH 973 
933 I - 19 J - J9 

960 HOHE HTAB 3' PRIHT "U0U8 M/IEI " 

N2:* POSSIBILITE'.' 

963 IF H2 > I THEM PRINT "S" 

970 PPIMT ■ HTAB 3 PPIMT 'UOUi JOUEZ £ 

H 'i NIDI (CI. J * l.DiI 

972 FOR F ■ I TO 2090' HEXT F 

973 RETURN 

1089 DATA 0,1.-1, 1.-1-0.-1.-1,9.-1.1. -*. 

,1.9.1.1 

1883 DATA 17.11.23.21.13.21,1 

7,13.23,23.23- 19. 19. 19.19.17,23.33 

1910 DATA 34-34.36.36. 36. 36 . 62.62 ■ 62 - 6; 

,8 

1920 DATA 43.45.36.36.63.63.63.63.13.13 

.43. 45, 43. 43. 13- 13. 63. 63. 63. 63. 36. 36 

1938 DATA 43.43.36-36.63.63.63,63.13.1 

8,9.43,45.45.54.34.63.63.63.63.9 

1040 DATA 43. 45. 63. 63. 63. 63. 44. 44. 44. a 

4, 44. 44 . 34 , 34 . 54 , 54 , 34 , 9 

1959 DATA 18.18.63,63.43.43.43-43. 36. 36 

.36.63.63,63.63,36,44.43,45.45.0 

I860 DATA 63.6 3.36.36.54,34.34.54.45.43 

.45.45.36.36.63.63.0 

1870 DATA 18. IS. 9. 9. 36. 36. 36-36. 63. 63.6 

3,63.9 

1989 DATA IS. IS. 6 3. 63. 36. 36. 44, 45. 4 
3.37.36. 63.63.34,46. 43.43.33. 34. 54 
.63.63.9 

1898 DATA 45.45- 36.36.63.63.63.63-54.3* 
.43. 43. 45. 45. 54. 54. 27. 27. 27. 27. 36. 36 .43. 
43.0 

1100 DATA 63,63.36.36.45.43.45.34.34. 
63.63.63 .34.34.43.45.45-45.36.36,6 
3,63.0 

1110 DATA 27.27-36.36.43.43.43.43.13. 18 
.18.18,63,63.63.63.36.36,9 

1129 DATA 27.27.36.36.43.43.45.53.53.34 
.34,62.62.63.63.63.36.36.9 

1139 DATA 63.63.36.36,45.43.43.45.1-: 13 

.19.18,63,63.63.63-36.36.0 

1 149 DATA 6 3 . 63 . 36 . 36 ,49. 43. 43,43, 18-18 

.18.18.27,27,27.27. 36.36.0 

1130 DATA 43.43.54,54.63. 63-63.63. !6. 3 
6. 36. 36. 43. 43. 43. 43. 9 

1169 DATA 63.63. 36.36.9.9.9,9.34.34 34. 
54,27.27.27,27.36.36.43.43.43.43.9 
1179 DATA 63,68.69.36.36.37.37.43.45. 16 
.46.34,34.33,55,63.69.60.68.36,3 7.37.45. 
46 . 46 . 34 , 33 . 35 . 39 . 60 . 36 . 43 , 34 . 39 , 9 

1990 PEM 
1993 PEM 

1910 REM it DESSIN DES SUATPES PIONS D 
E DEPARTS tt 

1920 REM 

1938 REM 

2009 HGOLOR ■ I 

2010 DRAW 17 AT 126.80 DPAU 17 
AT 142,96 

2029 HCOLOR - 3 

2039 DRAM 17 AT 142,88 DRAW 17 

AT 126.96 

2869 HCOLOR " 

2061 IF - 2 THEN HCOLOP - I 

2862 DRAU 17 AT 248.29 

2879 HCOLOP • H 

2071 IF H ■ 2 THEN HCOLOR ■ 1 

2072 DRAU 17 AT 260.28 
2088 RETURN 

3008 ''TAB 3' PRINT -OTHELLO* 

3010 PRIHT * - 

3011 NORMAL 

3028 PRINT -PEUEPSI* 
3198 RETURN 



REFLEXES 



Un petit programme histoire de voir si vous n'etes pas un 

danger public au volant de votre voiture. 

Pour utiliser le programme il suffit de se conformer aux 

messages et appuyer sur sa touche aux tops sonores ou 

lumineux. 

Alain LEDMIRAL 




. BESULTrtTS ( 



i TEXTTPRINTCHI 



lCHR»l?0) ICHI 



_90 ihk5:papero:cls 
_100 phintchr«j1i7j (chf 
_11d plot0,3.6;pl0i0,^ 



_320 HEM »•• JEU ( 



o*\c 



_fi50 PfitNTCHMC 



TTE r LEB RESULT. 



' CENMEHE6 



.140 PLOTI, 


io, • resiez vos oeelexes seul ou 






.160 PL.OII, 










13,3:plot3,13, 12 


.183 PC0T4, 


13,- > V0IC1 UN TOP SOMORE* 




o: music i ,4, 4,0: play 1,0, i,2000:uait; 




17,3:PL0T3,17, 12 


.203 PLOT4, 


17," > V01C1 VM TOP LUMINEUX* 




o: cls: PfiPEBi": uait?: papero 






,Z'0 PPINT- 


JEU SEUL OU A CEUX ' il/2>* 



_243 PRiht:prii 



_270 IFNB-1THENJ0O 

_2B0 PRINT: INPUT'S*" PRENOM ; "iJ2«:PBINr 

_270 PRINTJ2B.', V0U3 AUBEZ LA TOUCHE [ P 1 * I i UAI T300 

.300 PPINT;PBIIJT:PPInT-PRET ■> . . . ALORS TAPEZ UNE TOUI 



_340 IF RNDCI 



_JB3 UAIT10O:PR(H 



I D0KCH27A,0 

I TP-lHFFPF-DEE«m276l I : I F A< - . 3THEMTP* TP«3 

, IFTP)44rHENPRINI:PRINTIHC,P LENT. ..ON LE REFAli 

I IFT*--f,-TIIEIIPRINIJl»l : )[«Jl.l:U-U«TP 

I IFT«-'P*!MENPRIN1 J^»l 1 12> J2* 1 1 T2>T2*TP 

> IFIfK ,-0-AMDI»^ I'PTHEMPRlflT-REGARDEZ OU V0V3 : 



'RIMT-AVEC UN 1EMPS t 
fS.o:PL0T3,23,'0N EN 
ifr»--q*thenclear:pri 



I AFFICHAOE COUPS I 



LABYRINTHE INVISIBLE 



Conscient des dangers que renferme ce labyrinthe qui 
n'apparait pas a I'ecran. vous irez a la recherche des trois 
tresors qui y sont dissimules par I'intermediaire de trois 
robots. Les pieges existent sous deux formes : puits dans 
lequel un robot peut tomber ou mine sur laquelle il peut 
ex p loser. 

Bruno INTERNICOLA 

Moded'emploi : 

La decouverte d'un tresor se fera savoir par un son hachure puis il 

faudra I'emmener a 1'exterieur du labyrinthe dans une case contenant 

le symbole graphique du trefle au bas a gauche de votre ecran. 

Pour vous faciliter la progression dans le labyrinthe, la louche F5 allu- 

mera les murs immediatement a cote du robot et les cases restant en 

couleur de fond de votre ecran sont des passages. 

La louche F3 allumera tout le labyrinthe et vous verrez les pieges et 

les tresors. (Mais ce n'est pas du jeu !). 

En haut de I'ecran, apparaissent differents commentaires. suivant que 

le robot est detruit, tombe dans un puit, decouverte d'un tresor. 

Si le radar de votre ordinateur ne peut pas reperer les pieges. par 

contre, il detecte par sondage les tresors et affiche en haut de I'ecran 

les distances en nombre de cases separant chaque tresor du robot. 

Exemple : Si lecompteur du tresor n° 1 est egale a 22 cela veut direque 

le robot est juste sur la case immediatement en-dessous du tresor. 

Le labyrinthe se dessinant aleatoirement. il peut arriver qu'un tresor 

soit enferme entre quatre murs ou egalement que les entrees soient 

fermees. Dans cecas, vous detruirez le murvousgenant avec la touche 

N si le mur est au Nord, E s'il est a I "Est et W s'il est a I'Ouest. 

Mais attention, vous n'avez que trois bombes. L'ordinateurd'ailleurs 

vous previendra lorsque vous aurez use la derniere. 

Pour vous donner une idee du deroulement du jeu. la premiere fois le 

mieux est d'eclairer le labyrinthe (F3). Ayant une TV Noir et Blanc, la 

couleur que j'aichoisine vous plairapeut-etre pas, a vous de la changer. 



4 REDIRECTION Fl N0RB»F7 3UL4Z OUEST*C EST 

5 PRINT"."]'' P0-E^;;7.-.4S FRINTlHPJ<5; PRINT R*=" 3" : Pur E3£S78. 15 IIP=8is3 
o 01=49^'2 = 50-0>=51-M=i3 RT=ti RD=W i_fi=o OZ='J TI = PI=0:mB=O 

7 FLT.tS14i.16i' rrjt:€:E:14?.:^: F-OK EiSl 44, i vli F i> E81b5, 19? 
3 OU=39720 

te GOTozeee 

106 Fi;iPL = PT01 

101 PI"774G*-INT<RHB<1>*2767. 

182 IFP£BC(PI>"lteTHEH101 

1S4 P0KEPI.S4 NEXT 

186 FORL=8T01 

187 PI»77 , 4€*INT<RND<1)#276) 

163 IFPEE^'FI > = iei-DRFEEK<Pl^=34THEHlS7 
lie POKEPI,86:NEXT 

lii ./Ci-;uBi28 FTiKETR.e n=TR 

124 GOS'JE 1 :56 Put: ETP . 6 ■ Ti=TR 

12-3 C-OS'JEJ 56 R0KETR. A T3=TR 

123 GOTO 148 

130 TR=7746+mT'.ftHD'.l.'*27e> 

132 IFPEEK(TR.- = !fj4>CRPEEK'. rR>=54CiRPEEh.'.TP.-=8tOPPtEK''TP.'=0THEH13e 

136 RETURN 

140 P0KE3166.81 PGIE3161 ,.;! P0K.E3162, 102 

153 P0KEIrP,81 

176 >!=PE£KC263) 

171 BX=A 

172 IF>I=33THEHDX=-1 IiZ=l 

173 IFX-34THENDX-1 D2=-l 

174 IF;-t=33THEH0:-:=-«;2-DZ=22 

175 IFX=t-iiHEHD,-: = J2-DZ=-22 

176 P0KEDP.32 
377 DP=DP+DX 

178 IFPEEK<DP>-ie2THENBP*BP+BZ POKEBP-81 GOT0176 

179 IFPEEK':iiF , .- = S'£THEHM=il-LH 00T0393 




'. 2636. i'631. 2032. 28 



1S6 IFPEEK 
181 IFPEEK' 
132 IFPEEC l\P>=\ 
183 IFPEE) WiH 

135 FTjkEBP,31 PI 

136 IFX-47THEHGI 



=T2+1 :GOT02< 
■PH.fi ■ OOTO303 
■3THEN3017 

uiiJE66yffFi>EHP,;iH. DF^DF-22 FOr.EIjp. 81 l.rt=0 OZ = M r,uTn£ifi 
'J, I IFRE=1THEH137 
5UB6e8B:P0KE36879,238 PRINTTTUa- N'EST PflS DU JEU 



137 IFX=55THENGOSUE6066 P0KE0U+DP-2S, 1 POKEQU+BP+22. 1 POKEGU+BP-1 . 1 : POKEOU+DP+1, 



; POKE7r30,Ol P0KE7735.02 PC'KE7740,O3 
199 PRINT"T 

131 PRINTS ,, .r;P-Tl,IjP-T2,LP-T3 

132 IFRI = 3THEMI>UT0136 



193 IFX=28THEN5e0 

1.-4 ifx-9theh5b2 

195 if;-:=43theii564 

196 G0T0179 

2m FOPT = lTC-56 FutE^^r--.. :yy F0Rl = 1 I-.-1U HE..T FC'fE36S76.0 NEXT II- N* 1 LM=Lrl-l 

2ei print ■■■ mn i i iiiinii iiir n v 

282 FFINT"TJ 

203 PRIt)T"TBPRVrj". 

204 PRINTT2; "TRESOR DE TROUVE" 

205 FC'FT=1TO!060 NEXT 

206 FF:1NT"TTEJ0IGNEZ LR CASE ;*■ 

207 !FDP-Tl*eTHEH01»48 

2w8 IFBP-T2=0ThEH02=4.s 

2BS IFIiP-, 3»0THENO3-48 

211 GOTO170 

2ZQ FRINT-TFETuURNEZ 

230 OOTO170 

386 FORT«2«T013eSTEP-l POKE36877.1 NEXT P0KE36877*8 

301 PRINTTHOWT DETRUIT " RB=PD*1 

303 POKED -1 •" : IB4810 DP=8I63 P0K£DP,6I 

305 FCPT = lTij='>.' Nt,.I ijijTOl?0 

33-.;- n3r I -^-_-.jr...l 30.-.TEP-1 Fur.E3'3'37--..i ne:-:T FOI-E36S76.0 

333 FORT=250TO13O3TEP-1 F0VE?6*77,T NEXT PuKEioSrr.O 

400 PRlMT"m 

401 FFIJlT'-TTuEOT TOriEE DmH3 PUITS" 

402 PT=RT+1 G0SUE4610 

40}. Fnj-EI'P. 32 F0PT = lT.j:36-J l<£-.T 

464 BP=S163 P0KEBP.S1 

465 G0T0170 

500 IFPEEK' BP-22^=102THEr4POrEBP-2i. 32OOTO600 

501 G0T0170 

502 1FPEEK/BP-1 >=102THENPOKEBP-1.32 GOTO600 

503 G0T0170 

504 JFPEEK'.BPtI ■ = 10iTHEHPulEBP*l,32 0ijTO608 
5w5 GOTO 170 

600 FuRT=250TOi:-:0STEF--l F'31- E 36377. T - NEXT Fiji E86377, 8 -RJ =RI + 1 

681 IFRI=3THEHPRINT"TTa : -LUS BE niJHITIONS 

602 I3OTO170 

2-306 rr 1IIT"IIWIiIiIIIIIiIIIHII1iWHIIIIW|MM|| 

2004 FOPL = 0TO14 POf--E3DS76.i'0ij FuRT = 1 TO50 ■ NEXT ■ POKE36876.0 

2065 H=IHT(PHIK1 1*16) 

2006 ONNGGSUE2620 , 262 1 , iuii - 2623 . 2024 - 20i5 . k-^-i- ■ 202? . 2028.2023. 
33,2834 

2007 NEXT 

2010 PRIHT" ^ m BM a 8 » Wt ar P0kE36376. I5a FORT»1T028B:|€XT:POK£368?< 

2011 pri ht'TM iriniiiirii mm" ■ goto 1 ee 

2028 PRINTm*"*** *". RETURN 

2021 pRiNTPu-aM m m m> m m * m *i u , ^return 

2022 PRIHTfi*"SM 1 8 id a X K m«. RETURN 
2623 FRIHTFlJ-SM * IB *■>;: RETURN 

2024 FRIHTflJ-WS ti X 9 S « it flTj ^RETURN 

2025 PRIHTFif'^S a !■■! ■ '•«" ; -RETURN 
2826 PRIHTfl*"** » I R *"; iftETURN 
2027 PPINTPI".;.« i: . ,, ■ *::". PETURH 
1023 PRIHTFiI"^ an S» S » *;■■: RETURN 

2029 frihtwjw « a a 11 a m w; return 

2030 PRIHTWW Hi MB m • « *T j : RETURN 
2831 PRINTfi*"W * » a * * « »■•; RETURN 
23-32 pRiNTRf'SM * mm * mm M"; RETURN 

2033 PRIHTFlJ"&'i ■ *f . :RETriPM 

2034 PRIMTfl$"*a ■ w; :R£TURH 
4910 IFRD+RT«n3THEN5000 

4011 IFRB+RT=lflNDOZ*Lfl=3VHeN500e 

4012 IFftB+ftT=2RNBu2*LM=3THEH50H'"i 
4614 OOSUB6008 

4015 IFRT+RD-1THENPOKE0160/32 

4016 IFRT+PB=2THENP0i E0161.32 

4017 RETURN 

■31300 PR1NT"3«ECHERCHE TERN I NEE" ■ F0PT=1 TO1800NEXT 
5801 PRINT" Wa u .RTtRB."flR0E0T<S>" 

5062 PR I NT " HJBETRU IT'S-" FORT-1 TO2000 NEXT 

5003 PRINT TJrf/uiJS nVIEi DElOUVERT" 

5004 PRINr"KM".LH + 02;"3rfftESOP''-3'" FQRT= I Tu-VKui NEXT f-r. |i i'-.^i M) 

5005 PRIHT-^BWBHttlMIMS *0UR REJOUER" 

5006 PRINT-U 3FIFPUIE2 SUR" 33" 
5018 IFPEEK(203>=52THEH5 

'3011 0OTO5010 

5817 F0RT=I30T024h PuirE36>376. f F0i-:L= 1TU30 NEXT FOKE36876.0-NEXT OOTO50O0 

5020 FPINT-"n" 

5821 PRIHT-IPaVOUS ETES POSSESSEUR BE" 

5022 PRINT" a ;H; B SrRE8OR(S)":FORT»lTO3800;HEXT 

5023 iFr^li>n = tilHENPFINT"H rf/OUS FERE2 MIEUX LR" &0T05825 
5034 G0T05826 

5625 PRIHT-0 aPROCHRINE FOIS" FOPT=lTu4066 NEXT -COTO5085 

5026 IFn=iiht;iFF.iMr-f;H«:>l MBIEN VOiis VOILfl " GOT*>5023 

5027 G0T05038 

5023. PR1NT-M *ICHE" : FORT = lTu40Ou NtXI OOT05805 

5838 PRINT 'fiHWMN TRES BIEN VOUS VOILH " 

5031 PRINT"*] jn-p.ES R]lHE".FijPT=1Tm40m0 NEXT ucrn^Ou'.. 

6808 P0KE3«376 ■ 288 F0RT=lTu20>j NEXT P0KE36S76.0 RETURN 



v\c^° 



BATAILLE N AVALE 

Attention, votre PC1211 risque de prendre I'eau avec ce Ul_A| ■£• ■ " 

programme de bataille navale, si toutefois il ne vous coule ^*^(^V ° 

pas avant ! 

Alain DUBUS 

Mode d'emploi : Faire SHIFT = en mode DEF 

- Apres I'impression des deux grilles, I'ordinateur place ses 5 bateaux 
puis demande au joueur de placer ses propres bateaux. 

- vers la fin du jeu, I'ordinateur prend tout son temps caril lui faut elimi- 
ner les coups deja. tires. 
Lignes 400 a 540 : impression des grilles 

Lignes 600 a 630 : I'ordinateur place ses 5 bateaux ; A, B, C. D, E 
Ligne 700 : bateaux du joueur F, G, H, I, J. 
R : nombre de fusees titrees. 




a<KiafliT" 



no GRILLE : 

rri~"x 

6 7 S 3 10 
11 12 13 14 15 
16 17 18 19 20 
21 22 23 24 25 



I« GRILLE i 
12 5 4 5 
608 9@ 
II 12 014 15 
[g] 17 18 19 20 
21 22 23 24 [25J 



3<X«<9711+X+Z) 

•97:Z=INT CX 

•£3>:X«X-E3Z 

10:IF X=0THEN 5 

15!X-(E3^'X)'5:V 

*X-IHT XiV" 

INT HES <25V 

»1>:RET'JPN 

4801 "■'K-Ol PRINT 

"ImThILLE rift 

WCE-iPRIHT 

500: FOR J-1T0 21 
IF K-OPPINT 

MA GRILL 
E !":O0TO 50 

502IPR1HT " Tft 

r^PILLE J" 
503IPRIKT " — 



BJEiPPINT " 
540:HEXT HPRIHT 



50'JiFOR 1 = 1T0 51 

ft-d-i>*5*n 

B*rtM!C»ft*2i 

D-ft*3iE-ft»4 

5_'.n:rpiMr USING 

-llflfllBICI 



NEXT JipRIMT 

" ":PPI!IT " 

"IPR1HT " " 

- .vni ';:"-5:R=0: 

6051F0R K-1T0 5 

610:C.rjSUB 5 

6201 FOR L-1T0 Ki 
IF Y=ft<Li 
THEN 610 

■=.?niiiEXT L:ft'K>« 
YlHEXT KiS-0 

700iFOfi M-6T0 10 
i S-S* 1 i EEEP 
UPWJSE "PLft 
CE DU EhTEWJ 
■181 INPUT ft 
(II)INEXT M 

Tinip-R.i: INPUT 
" TOU TIR ?" 
IHIT-OHF N> 
25BEEP 31 
PftUSE "MAX I 
i 25" t GOTO 71 



730INEXT t 

THEM 760 
755IBEEP 2IPAUS6 

" RATE . HA! 
Hh'":G0T0 7 
65 

?60lBEEP 3IPAUSE 
" ZUT.UM be 
H0 INS |U :P=P 
-HPfiiJSE " I 
L M.EN RESTE 

■IPUF P=0 
GOTO S40 

761: IF P-3FEEP 1 
:PhOSE " AU 
SECOURS III* 

76SIBEEP UPAUSE 

" H MOfl TOTJR 

T70:w-Hti' . 
772iO-0:GOSOB 5 
775: FOR K«27T0 M 

i IF Y-A<K> 

LET 0-1 
700! NEXT KlIF 

THEN 772 
.■-'.:. .-It- V 
790i U-0: FOP K-6 

TO 1UUF Y-A 

CK)L£T A<K>= 

Oi U- I 

6001 NEXT r i BEEP 
II PAUSE ■ JE 
TIRE Ell "(Y 
t IF UTHEN 82 


815i EEEP 21 PAUSE 



30 

320= SEEP J: PAUSE 
" JE T.AI EU 
": 9=0- i: 
PAUSE " IL T 
• EH PESTE "I 
0: IF 0=uG0T0 
830 

S25: IF 0'3BEEP 1 
: PAUSE "JE V 
AIS T. AVOIR 

030: GOTO 710 

B40«BEEP 5: PAUSE 
"BRAVO. TU ES 
VAINiiUEUR ' 
":PRINT "TU 
hS UTILISE: 
"JRi "FUSEES" 
iGOTO 900 

6301 BEEP 5IPAUSE 
"JE T.AI VAI 
IICU-iPRINT " 
AVEC SEULEME 
NT "IRI-FUSE 
ES" 



..,1 


INPUT "TU RE 




J0UE8 m :t»i 




IF TI-"0" 




THEII 930 


■ ,' 


rvillT "A»-TU 




PEUP BE PER 




[iPE :<"iENB 




INPUT "UNE A 




UTRE GPILLE 




? "ITIHF Tl 




■•O'THEN "■' 


■'..'. 


GOTO 600 | 




REUSSITE 



I. 01 INPUT" 



A? 



7160 GOSUB 3D000 
7170 C0SU6 28006 
7175 IF IOF THEN 



Suite de la page 3 



713 



T<I>< 



'176 



GOSUB 3B080 
7200 IF Tf 1 'M0D3-I THEM T*F*8 
7263 ' 

7203 ' TEST <4 SEPT SORTIS 7) 

7210 IF FM0 THEN FOR U-8 TO 1 99 STEP 48 
:LlNE<0,U>-'319,UJ,6lNEXT:GOTO8e80 
7588 GOT078I8 ' -RECOPinENCER - 
7993 ' 
7996 ' 

7999 ' PETOURNEP LES CARTES 

RESTONTES 



8130 LOCATE 1 8. 20: COLOR* 

UNE OUTPE PttPTIE'JNI 

8140 IF LEFTf'Nt, 1)=-D- THEN PUN 11 

8130 CLS:SCREEN8,6 

8208 END 

8360 FOR 1«1 TO 3000: NEXT : CLS : SCREEN3. 0, 

0!BOX<4,3>-<32, M>-|-.,, 1 

9080 OTTRBI,l:C0LOP1.5:LOCf<1E9. 10= PRINT " 

PEROU II!!' 

9018 LOCATE 1 B, 201 ATTPBO. 0: I NPUT "UNE AUT 

RE PARTIE-INI 

9628 IF LEFTI1N1, 1 >--Q- THEN PUN 11 

9030 CLS:SCREEN0,$,6 

9100 END 

19918 ' — SOUS-PROG. 



8080 FOR 1-1 TO 32 

8016 GOSUB 36800 

8026 NEXT 

B623 FOR 1«6 TO 199 STEP49 

8026 LINE(6,I>-<319 f I). 6 

8027 NEXT 



B840 ir<iT'. D-nnoD8>.i ixiodb-: >8TKCN«SS 

8630 NEXT l NEXT 

Q180 TOR 1-1 TO50O8INEXTIC1.SISCREEN.4 

0110 DOX<8,0>-{19,24)"i-,3, I l60X(6.7)-( 

i.i2> a t*,e 

8120 ATTRBl.HCOLOP 3, 4 I LOCATE*. 10 I PR I N 
■BRAVO Ml f 



20000 1NPUTPENX.Y 

26010 IF X--1 OR Ym-i IHCN ?8080 

26028 I-(INT<X/40"1 .... [NT< V 50>>»6> 

20023 PLAV03L12D0' 

20838 RETURN 

29916 ' 

29926 ' SOOS-PPOC. 

DESSIH DE LA CARTE 

29938 ' 

30000 IF 1(9 THEN C-( I -I >*3l L-0 

30816 irt>8 AHDK17 THEN C-< I -9 >»3l L-6 

30020 iri>I6ANDI<23 THEN C"< I - I 7 >«3l L- 12 

30830 IT1>24 THEN C- ( 1 -23 >»5l L- IB 

30040 ON T<!)G0SUB 1010.1038,1850.1070,1 

090. 11 10. 1130. 1130. 13 18, 12 30, 1230, 1270,1 

290.1310. 1330. 1330. 1418. 1430. 1430. 1470,1 

490,1318,1338.1338.1610. lt>30, 1630,1670,1 

698, 1718, 1738, 1730 

30838 RETURN 

40180 FOR 1-6 TO 38 SrtP3 

40280 LINK6, !>-(!, 6? 

46388 NEXT I 

41368 FOR I-l TO 31 STEP 3 

41468 LINE<I,0>-(12»I,12) 

41366 NEXT I ■ 
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CALENDRIER PERPETUEL 



Grace ace programme vouspouvezconnaltrelejourde la 
semaine de rTimporte quelle date comprise entre 1582 
(annee oil le calendrier gregorien fut instaure) et 2200. Ce 
qui est largement suffisant pour un individu normalement 
constitue, non ? 

Stephane DUNGUNS 



lOO CALL CLEAR 






1 lO GOSUB 37TO 






120 GOSUB 3460 






130 REM CGULEUR5 IDE L ' ECRfiM El 




140 CALL CLEAR 






130 CALL CHOR<64."0 


J3B44O40B10O01") 




160 CALL SCREENI12) 






170 FOR H-S TO 8 






190 CALL C0L0R<W,5, 






190 NEXT w 






200 FOR W-3 TO 4 






210 CALL COL0R<W,13 






220 NEXT U 






230 CALL COLOR <1 .3, 






2*0 CALL C0L0Rf2,9, 


12* 




.... 




DEM NOE DU JOUR 


260 CALL CLEAR 






270 NB-2 






290 C»-"JOUR 9" 






290 LI-IB 






300 C0=3 






310 GOSUB 3410 






320 CALL S0UNDI2O0, 


00,3) 




330 DO SUB 32O0 






340 A-L 






350 P-A 






360 IF (A<1).(A>31) 


HEN 330 




370 PRINT :: 






380 REM REMISE DE 


TOUTES LES V 




390 B-0 






4QO C»0 






410 D-0 







470 GOSUB 1790 



•DEMANDE DU I 



> C«="M0I5 IS" 
1 LI-18 

> CO- 3 

) GOSUB 3110 

I CALL 50UND(200,700.3> 

) NB-2 

I GOSUB 3200 

I C=L 



390 IF <C-2)i 



<P>29ITHEN 330 
•C0121THEN 370 
I FOR 1=2 TO 11 STEP 2 
} IF 1-8 THEN 630 ELSE 640 
> 1=1*1 

1 IF <P=-]>»(C-I)THEN 330 
) NEXT I 
i PRINT : : 

I ON C GOTO 680,740,740,300,700,760,800,720,790.680,740,780 
) D=0 



690 GOTO 810 

70O DM 

710 GOTO BIO 

720 D"2 

730 GOTO BIO 



770 GOTO BIO 

7B0 0=5 

790 GOTO 810 

800 D-6 

810 A=A*D 

820 GOSUB 1790 

830 REM • •»- 

840 C*« "ANNEE 



TV 



-99 A/* 



lEMANDE DE I 



850 LI =18 

B60 C0 = 7 

870 GOSUB 3410 

080 CALL S0UND<20O,7O0,3) 

B90 NB = 4 

900 GOSUB 3200 

710 F-L 

920 PRINT : : 



960 GOTO 840 
RINT :: 



1010 ELSE 1070 



9B0 G-F/< 

990 HMNTtF/4) 

1000 IF <HOG)*(C-21-fP»: 

1010 C*-" IMPOSSIBLE" 

1020 LIM7 

1030 CO-3 

1O40 GOSUB 3410 

I05O PRINT : || 

1060 GOTO 270 

1070 IF <F<IB40)*<F,-1S8I)THEN 2930 

10B0 IF F<!900 THEN 2470 

1090 IF H<G THEN 1620 

1100 REM RECHERCHE DE L'ANNEE CONSIDERS 

1110 IF <F>19001-(F-' I92QJTHEN 1 ] 70 
1120 FOR I-19O0 TO 2180 STEP 2B 
1 1JO IF F--?I THEN 1 160 
1140 Z-0 
1 150 GOTO 1520 
I 160 NEXT I 

1170 IF (F->1904)*!F< 19281 THEN 1230 
1180 FOR 1-1904 TO 21B4 STEP 2B 
1 190 IF FOI THEN 1220 
1200 2-3 
1210 GOTO 1320 
1220 NEXT I 

1230 IF (F>190B)*<F'I928)THEN 1290 
1240 FOR I-190B TO 21B0 5TEP 2B 
F< >l THEN 12BO 
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' Z-3 



1270 GOTO 1320 

12BO NEXT I 

1290 IF CF-19I2)*(FM92B) THFN 1350 

[300 FDR 1-1912 TO 2192 STEP 2B 

1310 IF F<>1 THEN 1340 

1320 I-\ 

1330 GOTO 1320 

1340 NEXT I 

1300 IF *F<I916)*(F< 192GITHEN 1410 

I360 FUR 1-1916 TO 2196 STEP 20 

I lift IF t ■ 1 THEN I4O0 

13DO 7-6 

i :■/<< nuru i -,:''i 

1400 NFC! I 

1410 IF U*>t920>*(F<192S)THEN 1470 

1430 fOR 1-1920 10 2200 STEP 20 
I4JO IF V >I THEN 1460 
1440 Z-4 



*S8** 




GOTO 1520 
NEX1 



i-ItB 
B-0 

GOSUB 1790 

IF YOO THEN 1680 

IF F-1900 THEN 1610 

IF C=! THEN 1390 

IF C-2 THEN 1390 ELSE 1610 

IF B-0 THEN 2440 



27B0 GOTO 2BO0 

2790 GOTO 890 

2SO0 A-Z-B 

2B10 B-O 

2B20 GOSUB 1790 

2830 IF VOO THEN 1680 

2840 IF CX3 THEN 2950 ELSE 2B60 

2850 B-B-l 

2B60 IF B<0 THEN 2970 ELSE 29B0 

2S70 B=B*7 

2BB0 GOTO 1940 

2890 F«H»4 

2900 Y-G-H 

2910 GOTO 2580 

2920 REM ANNEE < IB40 ..... 



610 GOTO 1940 

620 J-H*4 

630 Y-G-H 

640 REM L'ANNEE CONSIDEREE I 



2930 1 

2940 1 

2930 F 

! UNE ANNEE BISSEXTILE 2960 I 



650 REM J-ANNEE MILLESIMME <V-0.25 ( 

660 F 

670 C 

680 t 

690 B=B*1 

700 GOTO 1740 

710 B=B.2 

720 GOTO 1740 



760 GOSUB 1790 
770 GOTO 1940 
7BO REM A > 6 :ROMEN£R 

790 IF A>6 THEN 1B20 

BOO 6=A 

910 GOTO 1920 

820 IF A>13 THEN 1850 



3030 
3040 
3O50 
3060 
3070 
3080 
3090 
3100 



840 GOTO 1920 

B50 IF ft>20 THEN 18B0 

860 B-A-14 

B70 GOTO 1920 

B80 IF A>27 THEN 1910 

890 B-A-21 

900 GOTO 1920 



) CO- 24 

> ON B*l GDTD 1970, 2O30, 2090, 2i: 

1 C»-"DIMONCHE" 



2210. 2270,2330 



2070 
2080 
2090 



2220 
2230 
2240 
2250 
2260 
2270 



2320 

2330 
2340 
2330 
2360 
2370 
2380 
2390 
2400 



BOSUB 


3410 


LI-14 




GOSUB 




GOTO 


2380 


C*-"LUNDI" 


GOSUB 


3410 


LI-14 




GOSUB 




GOTO 


J3B0 


C«-"MOPDI" 


BOSUB 


3410 


LI = 14 




GOSUB 


3410 


GOTD 2380 


C«" ,, MERCREDI" 


GOSUB 


3410 


LI-14 




GOSUB 


3410 


GOTO 


3B0 


C*-"J 






3410 


C»-"- 




LI = 14 






3410 


GOTO 23B0 


C»-"VENDREDr* 


GOSUB 


3410 


LI-14 




OOSUB 


3410 


GOTO 2380 


C*=-"SAHEDI" 


GOSUB 


34 tO 






LI-14 




GOSUB 


3410 



3120 
3130 
3140 
3130 
3160 
3170 
31B0 
3190 
3200 
3210 
3220 
3230 
3240 
3230 
3260 
3270 
32B0 
3290 
3300 
3310 

3330 
3340 
3330 
3360 
3370 
33BO 
3390 



F-F.3O0 

GOTO 3160 

IF <F>-1740)-<F<-I799 



IF IF >- 1 6401 »<F<- 1699 

X-4 

F-F*20O 

GOTO 3160 

IF CF>-13B2>«{F<-1399 



THEN 2940 ELSE 2970 



THEN 29B0 ELSE 3O10 



THEN 3020 ELSE 3050 



THEN 3060 ELSE 3090 



• ELSE 3130 



THEN 3140 ELSE 3150 



•••LECTURE DU NOMBRE SUR LE CLAVIER*! 



CALL KCHARQFJ. 13,32,6) 
FDR T-l TO N8 
CALL KEVO.K.TE) 
FJ-FJ.l 

F FJ>lOO0 THEN 3840 

F K-13 THEN 3B40 

F V.-7 THEN 3220 

F K-15 THEN 260 

F TE-0 THEN 3260 

«481*(K>37)THEN 3260 
CALL SOUND (10O, BOO, 7) 
Q*-D«*.CHR»(K) 
CALL HCHARda, 13*T,X1 
NEXT T 
L-VALIQ*) 



1 POUVEZ C0NNA1TRE LE JOUR DE": 
13B2 , L'ANNEE 00 LE " ; : " CI 



PRINT us: 

CALL S0UND1200, 600,1! 
CALL S0UND(2O0. 800,1 ! 
CALL 50UND<200, 1000, : 



3400 REM TEXTE **•• 

3410 FOR 1-1 TO LEN(C«> 

3420 CALL HCHOR <L I ,CD*I , ASC (SEG4 (C», I , 1 ) ) 

3430 NEXT I 

3440 RETURN 

3450 REM EXPLICATIONS •••* ... 

3460 CALL CLEAR 

3470 FOR 1-1 TO B 

3480 CALL CDLOR(I.6,6> 

3490 NEXT I 

3300 PRINT " GRACE A CE PROGRAMME , VOUS": 

SEMAINE DE N" IMPORTE ":: 

3510 PRINT " QUELLE DOTE COMPRISE ENTRE " i 

ER GREGORIEN FUT"::" INSTAURE , ET 2200 . 

3520 PRINT " PRESSER UNE TOUCHE..." 

3530 FOR 1-1 TO B 

3340 COLL COLOR I I, 16,61 

3530 NEXT I 

3560 COLL SOUND(100,aOO,4J 

3570 CALL KEY<0.K,S> 

3380 IF 5-0 THEN 3370 

3390 CALL CLEAR 

3600 FOR 1-1 TO B 

3610 COLL CDL0R(I.6,6> 

3620 NEXT I 

3630 PRINT "(ON PEUT FACILEMENT" : : "AUGMENTER CE CH1FFRE I22001"! 

T DUE LA LIGNE":: 

3640 PRINT "930 EI LES VALEURS MAX. DES "I : "80UCLES DES LIGNES 

TES -28 PAR 28->": : : : : 

3650 PRINT "PRESSER UNE TOUCHE... ■ 

3660 FOR 1=1 TO B 



"EN NE M0D1F 



2460 REM 1840 ' L'ANNEE < 1900 ■ 

2470 IF F<1582 THEN 24B0 ELSE 2570 
2480 CALL SOUND ( 100, 220, 0) 
2490 PRINT " IMPOSSIBLE 

1 582 • : i 
2500 FOR I-I TO 200 
231 O NEXT I 
2520 PRINT : " DA' 
TAURE " : : : : 
2530 FOR 1-1 TO 700 
2540 NEXT I 
2550 PRINT IIIM 
2560 GOTO B40 
2370 IF H(G THE' 
2580 IF (F-1860: 
2390 Z-0 
2600 GOTO 2B00 
2610 IF (F-1864: 
2620 Z-5 
2630 GOTO 28O0 
;'640 IF (F-IB401 
2630 Z-3 
2660 ODTD 2000 
2670 IF IF-IU4B: 
2680 1-6 

./,'"i SOI 00 

2700 ii ir-"-inr,?i 

2710 Z-4 



ERRATA 

Dans Mission impossible sur 
Tl 99 4/A paru dans le N' 25, 
la llgne 2910 Xai +x est & 
lemplacer par x=x +Dx 



PAS O'ANNEES INKER1 tLJRFS I 



I LOHUELLE LE"::" r.ALINDr.ii I. (.,[■!-. (iURIEN FUT' 



1750 BOTO 2900 
2740 u 'F-MI44 
2770 t-l 



289 
(F* 


o 

1808) 


<» 


1 891' 1 


,r. 


1 B6H ) 


(F- 


1876) 


„. 


1800) 


n 


10(14) 


M i 


1072) 



THEN 2590 ELSE 2610 



THEN 2620 ELSE 2640 



THEN 26B0 ELSE 2700 



•ii'., 



■ I I ',1 \V." 



3670 CALL COLOR t I , 16, 6) 

3680 NEXT I 

3690 CALL SOUND < I0O.00O, 41 

3700 CALL KEYIO.K.S) 

3710 IF S-O THEN 3700 

3720 RETURN 

3730 CALL SCREENC6) 

3740 FOR 1-2 m 7 

3730 CALL COLOR! I . 16, 6> 

i Fl 7.1 .'.,•■. 3760 NT* I I 

37 70 PRINT ■•••■•..••• I 

3780 PRINT "•••••••••CALENDRl£R«i 

3790 PRINT ■'••••• •••■ 

3800 PRINT ii.iitii.it 

3B10 FOR 1-1 TO 1O00 

■30 mi"»i I 

3B30 Rl iiii.n 

3840 CAl.l i l l M 

3B30 PH INT " FIN "1 1 1 

3B60 FOR I-I TO 1000 

3870 NE * r 1 

'■< -I ' ' ' I -I 

SQ90 FNO 
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CALCULS STATISTIQUES PC 1500 



Le micro-ordinateur de poche PC 1500 de SHARP ne 
possede malheureusement pas de fonctions statistiques 
preprogrammees. Du point de vue de son utilisation en 

Jantquecalculateurscientifique.il est moins complet que 

bon nombre de calculatrices. 

Le logiciel presente ici a pour but de combler cette 

lacune. 

R GARRIC 

Le logiciel propose a ete ecrit dans le souci de satisfaire a quatre exi- 
gences ; ^ 

1) Etre d'une utilisation aisee, ce qui est indispensable lorsque Ton 
est susceptible de rentrer dans la machine un nombre important de 
donnees. 

2) Permettre I'utilisation du programme d'acquisition des donnees en 
tant que sous-programme d'un programme utilisateur. 

3) Occuper le moins de place memoire possible afin que I'ensemble 
logiciel + resultats puissent etre conserves en permanence en memoi- 
re (le logiciel deem occupe &48 octets de memoire) 

4) Utihser des variables de stockage des resultats - du moins ceux qui 
sont indispensables - cemportant deux lettres (variables detinies par 
I utilisateur de la machine). Ainsi le risque de destruction des resultats 
par reaffectation des variables est reduit (ce qui est particulierement 
important lors de (utilisation du programme d'acquisition en tant que 
sous-programme). 

Le logiciel permet de calculer la moyenne. I'ecart-type la somme la 
somme des carres de N donnees X et de N donnees Y la somme des 
produits X.Y le coefficient de correlation des donnees Y par rapport 

auxdonneesXrequationdeladroitederegressionlineairelesvaleurs 
estimees de X et Y 

Description sommaire du logiciel 

Le logiciel se compose de deux parties distinctes : 

- un programme de label "S" assurant ['acquisition des donnees le 
calcul des sommes. sommes des carres. moyennes ecarts-type et la 
somme des produits croises. I'affichage des valeurs d'entree (fonction 
de verification faite en fin de programme pour eviter d'avoir a apnuver 
sur la louche ENTER durant ('execution, tout en maintenant I'affi- 
chage). 

Son organigramme est donne sur la figure 1. 

- un programme de label "A" assurant le calcul et I'affichage du coeffi- 
cient de correlation et des resultats de la regression lineaire 

Son organigramme est donne sur la figure Z 

Le detail des calculs. pour ceux qui n'ont pas horreur des formules 

mathematiques, figure dans I'encadre 1. 

Les variables utilisees dans tes deux programmes sont : 

- CN : nombre de donnees introduces. 

- MX : moyenne des X 

- MY : moyenne des Y 

- SX : ecart-type des X. 



-SY : ecart-type des Y 

- TX : somme des X. 

- TY : somme des Y 

- XY : somme des produits XY 

- X2 : somme des carres des X 

- Y2 : somme des carres des Y 

Ces dix variables constituent les variables resultats 
Des variables auxiliaires sont utilisees pour les calculs * 

- XXS : variable tampon d'entree. 

- AA ; valeur de X entree. 

- BB : valeur de Y entree. 

- RO : multiplicity de X et de Y(c'est-a-dire le nombre de fois que 

X et Y doivent etre comptes). 
■J.IVW; sans signification particuliere. 

N.B. Certames de ces variables sont utilisees a d'autres fins au cours 
des calculs afin de minimiser le nombre de variables differentes utili- 
sees. 

Le programme "S" comporte une tigne de label "s" correspondant au 
point d'entree lors d'une utilisation en tant que sous-programme 
La sortie en hgne 10 se fait en testant la variable systeme 31487 qui 
permet de savoir s'il y a eu un appel de sous-programme. 
Le programme "A" comporte a la ligne 22 un branchement au numero 
dehgneegalau code ASCII ducaractereentre:tescodes ASCII deU R 
X Y sont respectivement 82. 85. 88, 89. 

Le programme ne marchera pas avec une autre numeration de ces 
quatre lignes ! 

Mode operatoire en utilisation "Programme" 

Lentree des donnees se fait au clavier en suivant la procedure ci-des- 
sous : 

- frapper CLEAR ENTER pour initialiser les variables de stockaqe des 
resultats. 

- entrer successivement ; (valeur de X) , (valeur de Y) ; (multiplicity m 
deXet Y) 

- frapper DEFS. 

N'importe lequel de ces trois operandes peut etre omis ; Xet Ysont pris 

par defaut egaux a 0. m egal a 1. 

Par exemple 1 DEF S est identique a 1 . ■ 1 DEF S 

3 . 2 DEF S est identique a 3 . 2 ; 1 DEF S 
Au bout d'une seconde environ la machine repondra "STAT X.YttT ou 
XYm representent les valeurs d'entree (ou celles prises pardefaut s'il v 
a lieu). 

La machine est alors prete a accepter de nouvelles valeurs d'entree 
(tous les calculs ont ete effectues) ou a etre utilisee pour une autre 
tache. 

L'affichage de controle est maintenu jusqu'a ce que I'utilisateur frappe 
une touchede la machine. Ceci permet en particulierdepouvoirarreter 
a tout moment la saisie. et ce pendant une duree indefinie, en conser- 
vant une trace des dernieres donnees introduces. 
Les resultats statistiques seront conserves en memoire jusqu'au pro- 
chain CLEAR ou ALL RESET accompagne d'un maintien de la touche 
ON. 



Si vous avez commis une erreur lors de Introduction des donnees 

vous pourrez a tout moment la corriger en entrant les memes donnees 

X et Y mais une multiplicity de signe oppose 

Par exemple 3 . 2 ; -1 DEF S annule I'entree 3 . 2 DEF S 

L'obtention des resultats CN, MX MY SX SY TX TY X2. Y2. XYse fait au 

clavier. 

Par exemple si vous voulez connaftre la moyenne des X tapez M X 

ENTER. 

Un moyen simple pour acceder rapidement aux resultats est daffecter 
les touches "RESERVE" 

Par contre les resultats de la regression lineaire (qui necessitent des 
calculs supplementaires) sont obtenus en executant le programme "A- 
Apres avoir tape DEF A, le menu s'affiche sur I'ecran * 
"eqU-Ro-Xes-Yes". 

Repondez U si vous desirez connaitre I'equation de la droite de regres- 
sion hneaire, R pour le coefficient de correlation, X pour la valeur esti- 
mee de X et Y pour celle de Y 

Dansces deux demierscas. la machine vousdemandera alors la valeur 
de la variable conjuguee (X pour Yes et Y pour Xes). 
N.B. : I'affichage de I'equation de la droite de regression lineaire peut 
demander plus de26caracteres,et par consequent etre tronque par la 
droite. II est prudent, avant de demander son affichage. de definir un 
format en utilisant la commande USING (rappelonsquecettecomman- 
de peut etre utilisee a tout moment, sans la commande PRINT et en 
mode RUN, et est annulee par une autre commande USING). 
Mode operatoire en utilisation "Sous-programme" 
Seul le programme "S" peut etre utilise en sous- programme. 
Vous devezalorsachaqueappelde"s"preciserauprealable!es valeurs 
de XY et m qui seront notees AA. BB et RO. 

Un exemple d'utilisation de "s" est donne figure 3. Les resultats impri- 
mes ont ete obtenus avec I'imprimante utilisee en mode ECHO. 



2i; r=CN»xY-rx»rv: 

U=V(CN»5X)~2r 
U=(TY-U*TXJ^CN 

22: UAH ; INPUT "e 
■jU-So-Xti-Yti: 
'■;Z*:0N FRRC* 
GOTO 22: GOTO 
OSC Z* 

B2:PR,INT "RQ=';r^ 
CfWSX'SY: END 

BS.-PRINT "Y-t-jg; 



2rFQR SX=2T0 LEN 
XX* : SY=ftSC 
MID* (XX», SX-] 

3:]F SY^-HLET EB 

=UAL njD» (XX* 

, SX, H ) 
A: IF SY=S9LET SO 

=UAL HID* (XX* 

, SX, 14) 
SrNEXT SX: IF CN- 1 

R0<=8BEEP i: 

PRINT '■CN< = 0! i ' 

;EN0 
6:xx*=-sror ■■* 

STR* flO*'', »-t 



8:XY-XY*RPi*BB:X2 
=X2-0fi"2*R0:Y2 
=Y2-*B3«2^R0 

9:nX=(nX*CN*«flTR 
0V<CN*RQ):r!Y= 

(nv*CK-*aavtcN 

-»RO):CN=CN+R0 

]0:SX=SQR R9S CX2 

*CN-TX"2)'CN:S 

Y=SQR OBS (Y2* 

CN-TY^2)/CN:1F 

PEEK 3MB701J 

1 RETURN 

11: PRINT XX*:END 

20:"A"REn STAT RE 

SULTS 



'>»X+t 
END 



ALIEN 



Ce programme est un jeu d'action rapide. II manipule 
5 sprites et autorise des deplacements grace a des tou- 
ches en mode "repetition automatique". 
Vous etes a bord d'un vaisseau galactique et vous devez 
detruire les monstrueux AJien qui vous bombardent sans 
repit. Attention, vous n'avez que deux vies (e'est deja pas 
mal, non 7) 



Pascal LIN 



5 pRiNT-rxuaaauu 








18 PRINT" •♦♦♦ 


« 


» 




11 PRINT" ♦ * 








12 PRINT" * * 








15 PRINT" ♦♦♦♦ 


♦ 






16 PRINT" ♦ • 


* 






17 PRINT" * ♦ 


♦♦♦» 


♦ 




20 V-53248 








25 POKE V+33 .8 


:P0KE 


V+32-0 


30 GOTO 6800 








33 REH 

40 REM 






ANIMATION 



43 REM 

30 fifl-0:SO0 -MO" 1-8=2680 

35 POKE V+9,?0-PQKE V+38,0:POKE V+31,8 

68 P.D -INT<RNDC1)*20)*18 

63 IP B<1904 THEN 75 

78 S*CHfl/8)+1105 

73 S-B+08 IF S>1984 THEN 420 

30 IF fift-ND THEN £0 

90 IF flfl>P.D THEN RR=flfl-10: GOTO 110 

180 Flft-RFl+10 

110 POKE B.31 

130 POKE V+8.HR 

140 PRINTTR£K3l>",TEC0RE";SC"ll 

200 POKE V+4,X 

308 GET B* 

320 X-X-3*<B«= , 'M" RND X<234)+3«<B«-"»" RNO X>20> 

338 IF B«»"2" THEN GOSUB 1100 

360 POKE B .32 

400 GOTO 75 

'.28 IF PEEK<33279>»4 THEN GOSUB 910 

438 POKE B-32 

440 GOTO 70 

430 REM 

453 REM HHIrtRUQIKZniJE PARTIE; 

460 REM 

470 POKE V+30-8 POKE B.32-M0-2 

490 Xl«90:Yl«9B-X2-208-Y2-98 

388 DX-10-BV-12;Dl-i8-D2-12 

310 Xl-XltDX: 3FXK380RX1>24BTHENBX— OX 

320 X2-X2+C) !FXi":30ORX2>240THENDl— 01 

530 V2-Y2+D2'IFY2<880RV2>238THEND2— B2 

348 Y1-V1+DY IFYK30GRVl>230THENfjV— OY 

538 PRINTTRBOl)"TKC0RE">SC"ll " ' 

560 GET B* IF B*-'^" THEN GOSUB 1100 

380 X-X-S*tB*- ,, H" RND X<234J+3*'.i)*»"ll" AND X>20J 

590 POKE V*10,X1 POKE V+11,Y1 

600 POKE V*8,X2:PQKE V*9,V2P0KE V*4,X 

610 IF PEEKCV+30J-28 Oft PEEK(V*30J-36THEN GOSUB 910 

620 GOTO 310 

908 REM S. P. EXPLOSION 

903 REM 

■t\<6 POKE 53278, 0-POKE B.32 

920 SC-SC-10 :X-190 

1810 FOR T-15 TO STEP -1 

1028 P0KEVO-T:P0KE RT,13:P0KE W. 129 :P0KEH.6 -POKEL.206 

1038 POKE V.-33-2 POKE V*32-2 

1048 FOR &-1 TO 38 NEXT 

1038 NEXT T 



5010 
3030 
5040 
5030 
3868 
5070 
5080 
5090 
3188 
3118 
5128 
5130 
3148 
3130 
5160 
3170 
5180 
5190 
3200 
3270 
5275 
5280 
5285 
5290 
5308 
5305 
3310 
3313 
5320 
3323 
5338 
5340 
3330 
6000 
6010 

6030 
6640 

68'jO 



COMMODORE 

iWbB POKE V+33,0 ■POKEV+32,0 

1878 POKE RT.3-P0KE W.0 

1080 VC»VC*1-P0KE V+2.240:PQKE V*4,X:P0KEV+38.8 

1098 IF VC -2 THEN 5088 

1095 RETURN 

1100 REM S. P. MISSILE 

1105 REM 

1110 POKE RT,I0:pOKE H, 129: POKE V0.12:P0KE H.30:PQKE L-28 

1168 POKE V+38-8 

1178 POKE V+6/X 

1188 FOR Y =190 TO 62 STEP -4 

1190 POKE V+7,Y 

1208 NEXT 

1285 POKE V+31.8 

1210 IF PEEK<33278X>8 THEN 2088 

1228 POKE VO,0:POKE W,0:POKE V+7.10 

1238 RETURN 

2888 POKEV+7,18:P0KE 53278,0 :P0KE VO,0 

2810 5C-SC+2 

2828 POKE RT,15 -POKE W-33:P0KE VO>15=P0KE H,S0;POKE L.88 

2830 FOR T=1T0 30-NEXTUF M0-2THEN 2058 

2048 IF SO-38 THEN 2878 

2050 POKE VO,0 :P0KE U,0 

2060 RETURN 

2070 POKE V+33, 1 -POKE V+32. 1 

2880 POKE W,17 

2898 FOR T-l TOS^FOR Tl-1 TO 50 

2108 POKE L.T^POKE H,T1 

2110 NEXTT1.T 

2128 POKE W,16:PGKE V+33,0:POKE V+32, 8 

2138 GOTO 478 
REM 

REM FIN DE PRRTIE 3828 REM 

POKE V+5.18-P0KE V+9.18-P0KE V+11.230 

IF SC<nmflND SC<MC2JRND SC<Mt3)THEN 3270 

PRINT"^O0O»f/0US RVEZ UN DES 3 MEIUEURS SCORES! I I I" 

PPINT"HCP>»r'OTRE NOMCEN 3 LETTRESJ"; I INPUT N» 

IP LENCNSX>3 THEN 5060 

IP SOMC1) THEN 5100 

GOTO 3130 

FOR T-3 TO 1 STEP -1 

M<T)«M<T-l):N*a>=«N*<T-l> 

NEXT 

MCl)-SC:N»Cn-N« 

O0T0 3270 

IF SOU (2; THEN 5170 

GOTO 5200 

H(3)»rK2>:Nf<3}*H*<2) 

M<2>»SC-N*<2)-N* 

GOTO 3270 

M<3)-SC:Nf(3>-N* 

PRINT"nHBWMil/ ^" 




6110 
6120 
6290 
6380 
6318 
6328 
6338 
6348 
6343 
6349 
6350 
6360 
6370 
6990 
7000 
7018 
7020 
7825 
7038 
7848 
7030 
7070 
7068 
7188 
7118 
7138 
7148 
7158 
7178 
7480 
7418 
7428 
7423 
7427 
7433 
7440 
7450 
7468 
7470 
7480 
7498 
7588 
7680 
7618 
7788 
7710 
7728 
7738 
7748 
7738 
7768 
7778 



PR I NT " KHOMMI ; N#< 1 ) , n< 1 > 

PRINT "KO»W»l";N*(2>,HC2> 

PRINT"M»MMr;H*<3),M(3> 

PRINr'WWOTRE SCORE ;";SC 

PRINT"K»/OULEZ VOUS UNE AUTRE PHRTIEWN) ?"; 

GET flf:IF fl«>"0" AND flfO"N"THEN 3313 

IF A*""0" THEN VC-6 V-33248G0T07423 

PRINT"m-':POKE V+33.6-P0KE V+32,14:END 

REM 

REM 

REM 

PRIHT"Ki»WREGLE DU JEU 7(0^0" 

OET At :IF fl*<>"N" RND R*O"0" THEN 6018 

IF flt- , 'N" THEN 7826 

REM 

REM MODE D'EMPLOI 

REM 

PRINT'TTOOTMNOUS ETES flUX 0GMI1RNDES DU 

PRIHT-JOW/OTPE MISSION-" 

PRINT"IREP0US5ER LES EIWRHISSEURS" 

PRINT"»BRNS VOUS FHIRE 10UCHEK PAR LES B0I1BES" 

PRINT"1WR CHROUE VRISSEAU PERDU 18 PIS EN MOINS" 



STNRF1GHTER'"81E 



PRINT"«POUR LA SUITE THPE2 SUR SCSI" 

GET AS: IF fi*0"C" THEN 6120 

PRINT'TBCOHMflNDES:" 

PRINT")CURSEUR GCH/DRT-DEPLACEMENT DROIT" 

PRINT"»CURSEUR HT/BAS =DEPLRCEMENT GAUCHE" 

PRINT"»TQUCHE 'Z'-TIR DE MISSILES" 

PRINT"J»H'ON NE VIT QUE 2 FOIS'" 

PRINT"»WOUS AVE2 DONG 2 VAISSERUXI" 

PRINT"«*TTENTIONI ! < !SI" 

PRINT" m 50 PTS.UNE SURPRISE VOUS ATTEND... " 

PRINT-MOIWOULEZ VOUS C0MnENCER(O/N)">»" 

GET R»:IF fl*O"0" THEN 6360 

PRINT'TWam! BONNE CHANCE " 

REM 

REM CREATION LUTINS 

REM 

W=54276 ' AT=W+1 ■ VO=W+20 

H=W-3:L«W-4 

POKE V+21,62 

POKE 2042, 1 93 i POKE2043 -194: POKE2044 , 1 35 

POKE 2841,193:P0KE 2045,193 

FOR T-8 TO 62 

READ Q 

POKE 12352+T,0 

NEXT 

POKE V+28,62:P0KE V+38,6:P0KE V+37, 12 

FOR T-0 TO 62:READ O^POKE I24I6+T-0 

NEXT T 

POKE V+41,?:P0KE V+48,7 :POKE V*42,7:P0KE V+44,10 

FOR T-0 TO 62: READ Q:pOKE 12480+T,O 

NEXT T: RESTORE 

POKE V+43-5 

X=-1S8:P0KE V+4,X 

PRINT"^' 

Y=38:A-8 

A=A+2 

Y=V+10 

IF Y-220 THEN 7608 

POKE V+3/Y 

POKE VO, 15 POKE RT,15:P0KE W,17:pOKE H.APOKE L-A 

FOR T-l TO 38-NEXTT 

GOTO 7448 

POKE V0.8FGKE U.0:POKE AT,0 

POKE V+16,2:P0KE V+2,38:P0KE V+3,220 

FOR T-35416 TO 36176 -POKE T-l NEXTT 

REM TRf1CE E TOILES 

REM 

FOR T-l TO 28 

ET»INT(RND( 1 >«580)+1223 

POKE ET-42 

NEXTT 

GOTO 56 

REM DATA VAISSEAU 

3 DATA 0,16-0,0.16,8,8,16,0 

! DRTR 8.16,8,64.204.4.67,255,4 

3 DATA 67,233,4.67,233.4,73,233,196 

) DATA 127.3.244.127,3,244,79,33,196 

) DATA 64,168,4,66,170,4,2,170,8 

) DRTR 0.168.8.0.168,0.8,32.0 

J DATR 0.32.8.0,32,0.0,32,0 

i REM DATA MISSILE 

9 DATA 0.0,0,0,0,0,0,0,6 
9 DATA 0,246 ,0.0,240,0,0.240.0 
) DATA 0,240 ,8,8.248.0,0,240,0 
) DATA 0,240 ,0,0.240,0,0,240,0 
' DRTR 0.240,0,2,8.0,2,168.0 
) DRTA 10.170.0,2.163,8,0,160.8 
) DhTA 0,160,0,0,0,0,0,0.0 

) REM DATR DRROON 

I DATA 0,10,176,0,42,32,40,40,60 

1 DATA 170,48.253.138.171,233.2.175,207 

I DATR 0,191.192.60.253.192,243.233,192 

I DRTA 233,233,6,253,253.0.63,252,0 

) DATA 15.248.6.2.136-0-2,18,0 

I DATA 2,128,0,0.0.8.0.0.0 

I DATA 0,8.0.0.0.0.0.0.0 ■ 



BRICATAC 



Ecrit en Basic, BRICATAC est un jeu rapide ou vous devez 
delruire tableau par tableau unmurdebriques. Cetobjec- 
tif est complique par le fait qu'une brique detruite vous 
prend pour cible (chacun son tour !). Vous ne pouvezla fai- 
re disparaitre vraiment que lorsque vous en aurez atteint 
une autre. 

Pour corser le tout, un vaisseau spatial de provenance in- 
connue effectue des passages durant lesquels il peut 
vous bombarder. Des asteroides peuvent en tombant, 
creuser des crateres que vous devez eviter sous peine de 
mort subite. Heureusement, ces crateres seront combles 
(et vous aussi !) par les briques detruites au debut... 
Des reflexes, de la stategie, un bon graphisme : super, 



non ? 



Raphael SEBAN 



SPECTRUM 




12 BORDER 0: PAPER O: 



PRINT 
INK 6: 



S60 IF POINT (X *B*4,28) =0 TMEN 

GO TO 3000 
570 IF MloB TMEN GO SUB 2510 
560 IF M2<>0 TMEN GO SUB 2510 
500 LET X=X+ (INKEY« = "0" AND X< 

9) -(INKEY«="9" RND 



IP IN 



710 PRINT 

730 IF A=: 

740 LET fi = A + l 

800 GO TO 500 

'" PRINT AT 



THEN GO SU 

THEN GO SUB £020 

URISSEAU 
INK A; RT 4 , A-l; " <S 
5 THEN GO SUB S 10 



30>PRINT 
; "BONNE CM 
35 INPUT 



'DIFFICULTE (1 3 151 



B20 

ioie REM 

1035 INK 

1030 PLO". 

1040 BEEP 



R=3: RETURN 
T I R 



37 IF D<1 OR O > IS THEN BEEP .1 
30: GO TO 35 

40 print ink 0;'-" a gauche 

*S a droit! '0 po 

r tirer **L*": PAUSE S5Q 

45 LET "> = D-1: LET U=3 , LET 5=0 

LET H5=100: LET T=l 

52 REM INrrifiHSfiTION 

55 INK 2: PAPER 0; BORDER 0: C 



StJ.iS DRAU 8,118 
- _1,30 
1045 PLOT OUER l;X*Q+4,40: DRAU 
OUER l;d,118 

1050 IF X = XH-M1 AND M1(;0 THEN 
O TO 1200 

1060 IF M2(>0 AND X=X2 THEN GO 
3 1300 
1070 IF A=X OR R=X+1 THEN GO TO 



•30 PRINT PAPER 1; FLASH 1," 
100 PRINT PAPER 1 



115 NEXT F 

120 LET X=15 

130 LET R=2 

150 LET Ml=0t LET M2 = 8 

160 LET Xl=25: LET Y1=S 

170 LET X2=2B: LET Y2=3 

402 REM DEBUT DU JEU 

500 LET GG = INT (RND * (5+D *3) ) 

510 IF GG=1 THEN CO SUB 2300 

520 IF GG=2 THEN GO 5UB 1600 

550 PRINT INK 6; AT l?,X-l; " ± 



1030 




















1085 








THEM 


GO TO 200C? 






















11Q3 










































PRINT AT VI, 


Xl+Ml 
































1300 


LET S-S+30 












PRINT AT Y2H 










.05 


























20: LET M2=0 


: Lt J 


y.j> 


=£6: LE 



1505 ._ 

1520 INK s»; |J| 

BEEP . 1 , -20 
1530 PRINT AT 



RETURN 

EXPLOSION MflRTIEN 

print at 4-,«-±;"<Si 



■>5 70 




P* c 






























IF Y2+M2-1B THEN PRINT INK 
Y2*M2 ,X2; -tiJ" - BEEP .1.-10 
M2=0: LET X2n28,' LET Y2-3- 




RETU 

3S7Q 






IF Y2*M2ol7 AND X2=X THEN 



TO 3000 
26SO RETURN 

3005 PRINT OVER 1 ; AT 17, 
EEP .1,-30 
3010 PRINT OUER 1 J RT 17, 

EEP . 1 . -as 

1S4B>PRINT AT 4,A-1, 1 - 



, 10: 



-ET 



BEEP 



1550 LET _ 

1590 RETURN 

1593 REM CHUTES METEORITES 

1600 LET G=INT (RND*2) tl 

160S INK 3: IF G°2 TMEN PLOT A»B 
, 132: DRAU -10 , -50 • DRAU 15,20: 

DRAU -7 , -70 



1S10 BEEP .03,-7 

1620 OUER 1: IF G=2 THEN PLOT R» 

3,132: DRRU -18,-53: DRAU 13,30.- 

DRRU -7,-70 
1625 IF G=l THEN PLOT A*9,132: D 
RAU 10,-50: DRAU -15,20, DRAU 7, 



1628 OUER 

1630 IF G=2 AND POINT <A*8 

= 1 THEN GO TO 3f*00 

1840 IF G=l AND POINT (A»8 

-1 THEN GO TO. 3000 

1700 RETURN 

2002 REM CHUTE BRIOUE 

"0OS IF INT (X/2) (>X/S THEI 



1 ,32) 
1,32) 



T AT 0,X-1; " 

2008 IF INT (X^2) = 

AT 0,X; " 
2010 IF INT 1X^2) < 
T AT I,' ' 



• X^2 



PRIN 

THEN PRINT 

THEN PRIN 
>X-1 



2012 LET Z=S: LET 

2015 IF INT (X/2) =X/2 THEN PRINT 

AT 1,X; " " : LET B=X 

2017 LET L=L+1 

2020 LET ZeZ+2 

2030 PRINT INK 2 ; AT Z,B;"M" 

2040 BEEP .01,Z 

2060 PRINT AT Z,B;" 

2080 IF Z<>16 TMEN RETURN 

20B0 LET Z=0 

2100 IF X=B OR X=Otl THEN GO TO 
3000 

2101:, 



2104 

2105 

2110 PRINT INK 2; AT 17,B;"«»" 

2120 IF X>B THEN LET B=B-1 

2125 IF X(B THEN LET B=B+1 

2130 BEEP .05,8 

2140 PRINT RT 17,B-1;" 

21B0 IF POINT (B#8+4,23)=0 THEN 

GO TO 2210 

2160 IF L=30 THEN GO TO 3500 

2190 IF B(=0 OR B)-29 TMEN RETUR 

2200 GO TO 2110 

2201 

2202 

2203 REM REMPLI3SRGE OE TROU 

2204 

2205 

2210 SEEP . 1 , -20 

2220 PRINT INK 2 ; AT 13,B-l;"W 

2230 LET S=S+S 

2250 RETURN 

2300 LET KK=INT (RND*2)*1 

2310 IF KK=1 AND Hl=fl THEN GO TO 

2500 

2320 IF KK=2 AND M2=0 THEN GO TO 

2500 

2340 RETURN 
2490 
2491 

2492 REM CREATION DES TROUS 
2493 
2494 

2500 LET M1=INT (RND*6)+1 

3510 PRINT RT Yl, Xl+Ml;" " 

2520 LET X1=X1-1: LET Y1=Y1+1 

2550 IF Yl-18 THEN PRINT INK S ; A 
T Yl, Xl + Ml; "Eia": BEEP .1,-10; LE 
T Ml-0: LET X1=1S: LET V 1 =3 : RET 
URN 



3M9,PRINT AT 17,X;"ft"; BEEP .1, 
3030 PRINT AT 17,X,"*"; SEEP .1, 
3040 PRINT AT 17,X;";4" BEEP .1, 



3050 LET U=U-1 
U0S3 REM RAPPORT 
3080 PRINT PAPC! 



S; " 



JIE5: 



INK 3; •' SCORE. 



asis 



J065 PAUSE 10: PAUSE 200 

3070 IT U=0 AND S)M5 THEN CL3 I 

??im- elash ii 01 " le.lBi-RECOROr I 

I"! LET HS=S: PAUSE 100 

3080 IF UnO TMEN GO TO 15 

3490 SO TO 30 

3493 REM NOUUEAU MUR 

3500 LET T=T+1 

3510 REM TABLEAU FINI 

3520 PRINT PAPER 3; INK 7; FLASH 

1; AT 10 ,8: "B *■ ----■*■ 

3325 PAUSE 10 

3530 LET 5=3+50 

3540 IF D<>0 THEN LET D=D- 

3545 PRINT AT 20,0 

3530 POKE 23892,0 

3570 BEEP .028,1: BEEP .02,1-21 
35BO PRINT * .*-» 

3590 NEXT I 
3600 GO TO S0 
S010 FOR 1=0 TO 103 
5020 READ THAT 
5030 POKE U3R 'A'+I.THAT 
5040 NEXT I 

5050 DATA 24,60,102,126,24,60,00 
,219 

S052 DATA 0,0,0,0,0,0,0,0 
5055 DATA 142,83,33,66,127,170,1 
36,63 
S057 DA 
36 ,252 

5060 DATA 56,124,238,247,247,111 
, 124,48 

5062 DATA 12,62,110,221,221,122, 
126 ,56 

5065 DATA 24,54,123,63,22,58,63, 
14 

5067 DATA 
, 127,53 

S070 DRTA 120 , 156, 124 ,254., 230, 21 
3,228, 124 

3072 DRTA 145,0,34,133,40,130,8, 
82 

3075 DATA 16,130,40,66,9,68,18,1 
65 

S077 DATA 249,224,193,168,130,14. 
5, 199 ,25S 

5080 DATA 64,9,1,17,3,133,233,28 
5 

5090 REM MHHit»tm*HM.i 

5091 REM * 

5092 REM » 

5093 REM * 

5094 REM a 
5100 PRINT '*" "i 

'■; ink 7; " •"; ink s; 
INK 7;" %"; INK 2; " 

5110 FOR 1=1 TO 45: IF 

PRINT AT 17,1; INK 8; " Jfc" 
5130 IF K30 AND I/SbINT (I/S) T 
HEN PLOT 1*8 + 11,4.0: DRRU 0,110: 
BEEP .1,35: OUER 1; PLOT 1*8+11 , 
4.0: DRAU 0,110: OUER 
5140 IF 1=5 OR 1=15 THEN PRINT A 
T 0,6; OUER l; INK S;"10" 
B14B IF I°S TMEN PRINT RT 2,6; I 
NK 3;"8&J": BEEP .1,-20; PRINT AT 

2,6; " 

5150 IF 1=10 OR ta&e THEN PRINT 
AT 0,11; OUER li INK 2;-S0" 
51SS>IF 1=15 OR 1=10 OR In20 THE 
N PRINT AT 2,1 + 1; INK 5;"f¥"-. DEC 
P .1,-20: PRINT AT 2,1+1," " 

I=1S OR 1=25 THEN PRINT 



, 127, 111 ,223,219 ,23© 



PRESENTATION 



30 THEN 



AT , IS 
5170 IF 
AT 0,21 
5180 IF 
— , 26 



OUER 1; 
1=20 — 



INK 3; "30" 

■30 TMEN PRINT 

INK 2; 



OUER 1 
[=25 OR 1=35 THEN PRINT 
OUER 1; INK 6; "5 



5190* IF' 1=27 THEN FOR F=2 TO 



i«* 



1=29 THEN PRINT AT 17,1; 



5210 BEEP .01,1 

5220 BEEP .01,45-1 

5500 NEXT I 

5510 RETURN 

9000 STOP 

9998 SRUE 'BRICATRC" 



BARRICADES 



Ne laissez pas grandir le serpent qui risque fort, si vous le 
laissez faire, de sortir de I'ecran ! Vous etes deux, et tous 
les coups sont permis ( enfin presque), ainsi que les de- 
placements en diagonale. 



Dider MAAS 



jffAB\ 




40 



' -HOM OU PREMIER JOUEUf* 'j: INPUT PJ» 
i -nqh bu SECOND JOUEUB *i: INPUT P2« 
' -VOULEZ VOUS LES I NSTRUC T J ONS - I : INPUT OS 

F 0«>-- THEN 1= Mll.ll-'O' TMEN 0OSU6 VOOO 

H-a?:v-33:olM XUI,Y(I>,L(1I 

PEN IPOKE 77,0 

GPAPMICS 3;SETC0LOB o,b,b:setcolor i,3,io:sei 

SETCOLOR 1, 10,6 

7 * SUPER OORRICAOE- 

iO POKE 752,1:? :? Pl-i* -.60:7 P2»I * ", 

00 COLOR 3IPL0T 6,i:0PAUTO H>3, 1 : DRflUTO H'3,U:I 



622 IF SI-10 THEN 10849 




823 IF SO-10 THEN I0B19 






•i:for zz-i to 100:ne 


B30 IF STRIGIOI-O AND STRIGI1 


-0 TMEN B30 


833 COLOR 3-.PL0T X(PI*3,V)PI« 


:for 2Z-1 TO ioo-.next 


BIO IF STRIGIOI-O AND STPIGfl 


-0 THEN 830 


830 SOUND 0,0,0,0:QOT0 20 




9000 REM 




9010 GRAPHICS i?:setcolob 0, IS 


, vi:setcolor 1,7,8:EE 


:setcolor 4,0,0 




9020 POKE 82, IIPOSITION 0,B 





1,313,333,330,: 



120 i ipj-r (pi -i ;goto -100 
123 xiPj-K(p|«i;y(Pi-r(Pi- 
130 XIP)-xiP)*l:00TO 400 

133 xfP)-x(fM*i:Y(P>-r<p>< 

140 riPl-y (PI «l:00T0 400 
143 xipi-xipj -i:r(pt-y (pj. 

130 XIPI-MIP) -l;GOT0 400 
I0O LOCATE X<P>*3,YIPI«I,d 

103 color p»i:plot xipi«3, 

110 fiOUND 0, (P«201 •68,6, 1 



9060 ? «6|-LE POINT BLEU ET LE STICK DE GAUCHE SONT A :":7 NAIP14 

9100 -> NAI -UOTRE ADUERSAIRE MARQUE UN POINT A CHAOUE F015 QUE VDUSHEURTI 

N MUR* 

9190 P-PEEK133279I : IF P»6 TMEN RETURN 

9200 IF P«-3 THEN RUN -DIMENU.BAS - 

9210 GOTO 9190 

ioa-19 so-o;si«o;sound 0,0,0,0 

10830 color p«i:plot xipi *3,tipi >i;for zz-\ to 100 

10833 color 3:plot X(PI«3,YIPI •! 
10837 NEXT 2Z 

10870 IF 0-4 THEN 20 

10880 IF 0-3 THEN RUN 'OIMENU.BAS' 

10890 IF 0-3 THEN RUN 

10900 0OT0 10060 
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SOLUTION DE 








OLOR 3,3,3 


L'HIPPOREBUS: 




.V 



10 FOR 1=1 TD BS 
20 READ X 
30 PRINT CHRS(X) : 
40 NEXT I 
50 END 
60 DATA 67,79,77,77, 
65,78,68,69 I 
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LE LOGICIEL 
DE LA SEMAINE 



Koala painter et Koala pad 
...sur COMMODORE 64 




Vous pouvez (temporairement, 
bien entendu) metlre de cote le 
clavier de voire o'rdinateur favori 
grace a ce nouveau produit : 
une tablelte au nom evocateur de 
"KOALA" KOALA se presente 
sous la forme d'une tablelte equi- 
pee de deux boutons poussoirs 
sur laquelle il est possible de de- 
placer un stylo. Cette tablette est 
connectee suivant I'ordinaleur 
utilise, au port reserve aux manet- 
tes de jeux. La surface de la ta- 
blette est constitute d'un mate- 
riau sensible a une pression quel- 
conque (doigt. stylo, etc.). Les 
circuits internes de la tablette 
transformed le contact ainsi eta- 
blien uneinformationtransmisea 
I'ordinateur. 

Les deux boulons permettent de 
valider ou non reformation. 
KOALA peut etre utilise de bien 
des facons, seule I'imagination 
limitant son domaine d'applica- 
tion : selection de menu, jeux, 
conception graphique. applica- 
tions musicales, etc... 
Les fogiciels KOALA PAINTER, 
teste sur COMMODORE 64 est 
contenu dans une cartouche in- 
seree dans le connecteur reserve 
a cet usage. 

KOALA utilise la tablette sensible 
et permet la conception de des- 
sins avec une tres grande facilite. 
II est possible de realiser des des- 
sins libres ou d'utiiiser les fonc- 
tions specifiques du logiciel. Ces 



fonctions sont accessibles grace 
a une page d'ecran ou sont sym- 
bolises les differents graphismes. 
couleurs et utilitaires, par I'inter- 
mediaire de la tablette. 
Parmi ces fonctions on trouve 
dessinsautomatiquesdecercles 
disques pleins. carres. rectan- 
gles, lignes, rayons, etc... selec- 
tion de couleurs, du typede trace 
remplissage de forme en couleur 
inversion de couleur. 
Certaines fonctions sont particu 
lierement interessantes : copie de 
dessins, effet de zoom, echange 
de position d'une partie de des- 
sin, effet miroir assurant une 
symetrie parfaite.etc. Bien enten- 
du, un dessin peut etre sauvegar- 
de sur disque et, plus utile, peut 
etre utilise dans un programme 
basic, sans avoir initialement 
charge !e programme KOALA 
PAINTER. 

Un logiciel bien fait . rendu tres 
agreable par ['utilisation de la 
tablette (qui se revele tres fiable 
et tres precise) qui facilite grande- 
mentlatachedesconcepteursde 
graphismes. (Ceux qui possedent 
un COMMODORE 64 connais- 
sent les ditficultes lors de I'elabo- 
ration de dessins...). 
KOALAPAD, tablette sensible, et 
KOALA PAINTER.diffuseparB I P 
sur ATARI. APPLE. COMMODORE 
64 et IBM. 

P GLAJEAN 



PETITES ANNONCES 
GRATUITES 




ACHETE pour ZX 81 Extension 16 
ou 32K RAM + manettes dejeux 
et carte + cassettes de jeux -(-car- 
te graphique. Philippe PETIT 
17. rue Dauphine 30100 ABBE- 
VILLE. Tel. (22) 31.03.29. 

VENDS pourZXSI : Carte CHRS+ 
mere + 2 K7 (soft) 300 E + carte 
sonore + K7 250 F. + VENDS pro- 
gramme utilitaire TOOLKIT 1" 
Merge et2°Renum80F.Hight Res 
(soft) 60 E PSS MCODER (compi- 
leur) 60 E Astro Chin 40 f. QS As- 
teroid 50 F. Flight Simulation 50 F 
VENDS livres anglais, machine 
langage 70 F. Mast your MC60E + 
Francais langage machine ZX 81 
70 F + TRUC ET ASTUCE 50 F 
Monsieur LANGLOIS Tel 

203.41.28 poste 322 ou 323. 

VENDS pour ZX SPECTRUM pro- 
gramme scope (langage graphi- 
que) 120 F FIFTH (langage sprite) 
100 F. PAINTBOX (prog, graphic) 
80 F Logilivre Othello/lsola 90 F 
Simulateur de vol Cobalt 80 F 
K7 Spect. Computing Issue n° 4 
(dec. 83) 30 F. Livre anglais SPECT 
Hardware Manuel 50 F Francaisle 
petit livre du SPECTRUM 60 F 
Monsieur LANGLOIS Tel. 

203.41.28 poste 322 ou 323. 

VENDS ATARI 400 sous garantie 
12784 centipede Basic, Joystick. 
programmes 2300 F MosieurLE- 
MAITRE Tel. {3)095.54.06. 



PROCER I'importateur de 
COMMODORE en FRANCE, 
aimerait connaitre des clubs 
qui utilisent des COMMODO- 
RE 64 etVIC20. Ecrireaujour- 
nal qui transmettra. 



VENDS livres APPLE : Passeport 
pour APPLESOFT. La conduite de 
IAPPLE II tome 2. Manuel d'utili- 
sateurs APPLE II. Pratique de 
IAPPLE II tome 3, I'APPLE et ses 
fichiers tome 1, le basic en gestion 
sur APPLE II. Valeur 470 F Vendu 
280 F Antoine CRAME Tel. (7) 
880.94.47. 

ACHETE pourTI 99/4A controleur 
et lecteur de disquettes indepen- 
dent (sans boltier peripherique) 
Rene 8ARREAU Tel. (56) 
28.58.56. (lesoir). 

VENDS Tl 99/4A + manettes 
+ cordon + magneto + music 
Master + PARSEC avec Speech 
Synthetiseur + programmes sur 
livres et cassettes. Roland PRE- 
MESNIL 23, rue de la Justice 
93800 EPINAY SUR SEINE. Tel. 
823.11.90. 

VENDS Lecteur enregistreur de 
prog. THOMSON MK 90.0.90 : 
500 F + codeur modulateur 
SECAM THOMSON MS 90.100 : 
300 F. + synthe de marque Elec- 



trel avec interface parallele cen- 
Ironic 800 F Monsieur POIROT 
43. bid Charles Peguy 28000 
CHARTRES. 

VENDS SHARP PC 1500 1200F + 
CE 150 (imprimante) 1200 F + CE 
1 59 (8Ko RAM protegee) 700 F + 
CE 153 (tablette graphique) 900E 
+ papier + stylo + livres (4) + 
malettes le tout 4600 E VENDS 
Reference Manual (U.S.) de IAP- 
PLE II" : 150 F Monsieur LEMOINE 
Joe!2,rueA,Leyge.Bat.28.esc 2 
95340 PERSAN 

VENDS logiciel neuf langage 
APPLE PASCAL USCD. 1000 F 
(Valeur 1850 E} Imprimanle OKI 
80 + interface : 3000 F ANDRE : 
Tel. 990.21.06. 

VENDS Tl 99/4A (11.83) + magne- 
to + cordon magneto + manettes 
de jeu + boite d'extension peri- 
pherique + carte RS232 + exten- 
sion memoire 32K + controleur 
de disquettes + unite de disquet- 
te interne + extended Basic + 
Editor Assembler-f terminal Emu- 
lator II + divers jeux. Le tout 
11000 F (a debattre). CAIZES 
Didier 11, rue Victor Hugo 69800 
St PRIESTTel. (7) 820.57.59 apres 
20 heures. 

PS : possibilite de detainer le 
materiel. 

VENDS ORDINATEUR DE POCHE 
CASIO FX 702 P + interface FA2. 
Materiel garantie 11 mois (achete 
le 12/3/84). Valeur 1500 E Vendu 
1100 F (a debattre). Antoine 
CRAME 17. rue Anatole France 
69120 VAULX EN VEL1N Tel. (7) 
880.94.47. 

VENDS ORIC 1 48K + Alim. + 80 
programmes sur K7 : 2500 F Jean 
Paul GUILLE Tel. 554.84.96 tous 
les jours. 

VENDS ORIC 1 COMPLET 1700 E 
+ Imprimante MCP 40 4 couleurs 
1450 F. le tout 2950 F. Possibilite 
reglement en trois fois. ACHETE 
APPLE II occasion a prix modere. 
Contacter Pascal PINCON C721. 
QUINETTE 91150 ETAMPES. 

VENDS VIC 20 + 3K RAM + 4 jeux 
en ROM + magneto + 8 K7 de 
jeux + joysticks + 4 livresdu VIC + 
TV N/B PHILIPS le tout 2800 F 
Monsieur BRECARD Tel. 
245.84.77 {apres 19 H) 
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CONFIGURATION 
THOMSON: 



1 TO 7 THOMSON 
1 Lecteur de cassettes 
1 Module memo 7 basic 
I Cassette basic 
1 Cassette jeu 



LJ L'ensemble : 
3.600,00 F TTC 




LOGICIELS EDUCAT1F5 
THOMSON/T07 



PRIX TTC : 
Initiation au basic (vol l a 6) 

le volume 195 F 

Licit- des chants J 75 F i 

Ui ronde des formes 1 45 F 

MeluniVnot 425 F 

Oueu |module debase) 325F 
OUOI |K/ !ii',trnH'-'j<''o| 65 F 

Oueji paspon] 

Quest ('•' lences ft <u'-<iiiwtif.\ 65 F 

Y.inc. poker, solitaire , l?5F 

Cocktail : WF 

I. .loin 1251 







fr Texas Instruments 



CONFIGURATION N° 1 
POUR DEM ARRER: 



I TT99/4 TEXAS 16 K 

1 Magnet ocassetttes TEXAS avec comptei 

1 Pa ire manettes jeux 

1 Cassette "le basic par soi-meme" 

1 Les techniques Programmation dejeux r 

1 Introduction au Tt 99/4 

1 Module jeux Mundman 

1 Module jeux Parsec 

1 Module Hoppel 

1 Basic etendu 



LI L'ensemble : 
3.100,00 F TTC 



CONFIGURATION N° 2 
ORGANISATION: 

1 Tl 99/4 TEXAS 

1 Mag netocasse ties TEXAS avec compteur 

1 Module gestion de fichler 

1 Module gestion de rapports 

I Module statistiques 

1 Module Tl calc 

1 Gestion privee 

I Basic etendu 

D L'ensemble; 
3.900,00 F TTC 



BONS DE COMMANDE 
TARIFS AU 6/3/84 



Prtnom 

Adresse 

Code postal Wile. 



Produits dlsponlbles dans la Ifmlte de nos stocks en magailn. 
Participation aux frals de port et d'cxpcdltlon en recommande : 



La Regie a Cilcul 

65/67, bd St-germain 75005 Paris 

Tel. : 325.68.88 - Telex ETRAV 220064 F/1303 f?AC 




CONFIGURATION N° 3 
JEUX: 

1 Palre manettes jeux 

1 Basic par soi-meme 

I Module Adventure avec la cassette Pirate 

5 Cassettes assonies pourjouer avec le moduli 

t Module Jeu Mundman 

t Module Dragon attali 

[ Module Mash 

t Module Star Trek 

L'ensemble: 
2.200,00 F TTC 



km 



